Pascal.ABC Если что спрошу про какую то строчку программы. Задача 1: Создать массив,...

Question

Pascal.ABC Если что спрошу про какую то строчку программы. Задача 1: Создать массив, заполнить рандомными числами. Найти максимум, вывести массив и максимум. Задача 2: Посчитать количество элементов массива, равных максимуму. Задачи 3: Подсчитать разницу между суммой всех элементов с четными и нечетными индексами. - ДОПОЛНЕНИЕ: Как заменить цикл for циклом while?

Answer 1

Первая

const n=10;

var a:array[1..n] of integer;

   i,t:integer;

begin

 randomize;

 for i:=1 to n do a[i]:=random(100);

 for i:=1 to n do begin

   writeln('a[',i,']=',a[i]);

   if(t < a[i]) then

     t:=a[i];

 end;

 writeln('Максимимум: ',t);

end.

Вторая

const n=5;

var a:array[1..n] of integer;

   i,t,c:integer;

begin

 for i:=1 to n do readln(a[i]);

 for i:=1 to n do begin

   if(t < a[i]) then begin

     t:=a[i];

     c:=0;

   end;

   if(t = a[i]) then

     c += 1;

 end;

 writeln(c);

end.

Третья

const n=5;

var a:array[1..n] of integer;

   i,t,c:integer;

begin

 for i:=1 to n do readln(a[i]);

 for i:=1 to n do begin

   if(i mod 2 = 0) then

     t:=t + a[i];

   if(i mod 2 <> 0) then

     c:=c + a[i];

 end;

 writeln(t-c);

end.

Дополнение

i:=1;

while i

 i:=i+1;

end;

---------------------------------

for i:=1 to 20 do begin

end;