Дан одномерный массив B из 20 целых чисел
(числа вводятся по формуле (i+2*(i-1)), вывести
на экран массив в строку через пробел, найти и
вывести максимальный элемент массива.

Лучше перепроверь в паскале,то ли делает программа,что требуется в задании.

program zadacha;

var B:array[1..10000] of integer;

i,max:integer;

begin

B[1]:=1+2*(1-1);

max:=B[1];

for i:=2 to 20 do

B[i]:=i+2*(i-1);

if B[i]>max then

max:=B[i];

for i:=1 to 20 do

write(' ',B[i]);

writeln(' ');

writeln('наибольший элемент-',max);

end.

Объяснение: