Задачи в паскале.
Задача 1.
Посчитайте количество четырехзначных чисел, кратных 9.
Первоначальное значение K=0. Начальное значение параметра цикла равно 1000, конечное
значение равно 9999. Внутри цикла организовать проверку условия: кратно ли число девяти (если
остаток от целочисленного деления на 9 равен нулю, то число кратно 9). Использовать формулу
подсчета количества.
Задача 2.
Вы должны другу 4000 рублей. Он предлагает выплатить ему долг следующим образом: в
первую неделю – 1 руб, во вторую – 2 руб, в третью – 4 руб, в четвертую – 8 руб и т. д. в
течении 12 недель. Выгодно ли вам такое предложение? Какую сумму вы выплатите таким Первоначальное значение S=1 (S – сколько руб выплачивает за t недель), X=1 (X – сколько руб
выплачивает в неделю). Начальное значение параметра цикла равно 2, конечное значение равно
12. Использовать формулу подсчёта суммы. После выполнения цикла сравнить полученную
сумму (переменную S) с числом 4000 и дать ответ выгодно ли вам такое предложение.

Const n=3;
var a:array[1..n,1..n] of integer;
i,j,min,s:integer;
upsr,downsr,k:real;
begin
for i:=1 to n do
for j:=1 to n do a[i,j]:=random(10);
for i:=1 to n do begin
for j:=1 to n do write(a[i,j]:5);
writeln;
end;
min:=a[1,1];
s:=0;
for i:=1 to n do
for j:=1 to n do begin
if (a[i,j]<min) and (j>i) then min:=a[i,j];
end;
for i:=1 to n do
for j:=1 to n do
if i<j then s:=s+a[i,j]; upsr:=s/((sqr(n)-n)/2);
s:=0;
for i:=1 to n do
for j:=1 to n do
if i>j then s:=s+a[i,j];
downsr:=s/((sqr(n)-n)/2);
k:=sqr(downsr-upsr);
writeln('минимальный элемент выше главной диагонали ',min);
writeln('среднее арифметическое элементов выше главной диагонали ',upsr);
writeln('среднее арифметическое элементов ниже главной диагонали ',downsr);
writeln('квадрат разности средних арифметических значений элементов матрицы ',k);
end.

Var
  i:integer;
  a:array[1..20]of integer;
begin
for i:=1 to 20 do
  begin
  a[i]:=random(-100,100);
  if a[i]<0 then write(a[i],' ');
  end;
end.

2)
а)
var
  i:integer;
  a:array[1..20]of real;
begin
writeln('Исходный массив:');
for i:=1 to 20 do
  begin
  a[i]:=random(-50,50);
  write(a[i],' ');
  end;
writeln;
for i:=1 to 20 do  if a[i]>10 then a[i]:=sqrt(a[i]);
writeln('Измененный массив:');
for i:=1 to 20 do write(a[i]:7:2);
end.

б) 
var
  i:integer;
  a:array[1..20]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 20 do
  begin
  a[i]:=random(-50,50);
  write(a[i]:4);
  end;
writeln;
for i:=1 to 20 do  if (i mod 2=0) then a[i]:=abs(a[i]);
writeln('Измененный массив:');
for i:=1 to 20 do write(a[i]:4);
end.

в) 
var
  i,n:integer;
  a:array[1..20]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 20 do
  begin
  a[i]:=random(-50,50);
  write(a[i]:4);
  end;
writeln;
n:=a[1];
for i:=1 to 20 do
  if a[i]<0 then a[i]:=a[i]+5
  else a[i]:=a[i]+n;
writeln('Измененный массив:');
for i:=1 to 20 do write(a[i]:4);
end.