const n=5;
var a: array [1..n] of real;
i: integer;
begin
for i:=1 to n do begin readln(a[i]);
if i mod 2=1 then a[i]:=sqr(i);
writeln(i,' элемент массива равен : ',a[i]);
end;
end.
Карп корп кора коза по другому не знаю
А) имя массива "а"
Б) в нем 6 элементов
В) тип элементов массива - целые числа (Integer)
Г) данные в массив введены в виде констант (Const)
Д) третья строка программы, после знака "=": (1, 7, 3, 6, 0, 10)
Е) программа подсчитывает сумму элементов массива, делит эту сумму на 6 и результат выводит на экран