Так и не понял сколько элементов в массиве. Будем считать, что их 10 и заполним массив случайными числами в диапазоне от 0 до 100. //PascalABC.NET v3.3
const n = 10;
var
i: integer;
a:array[1..n]of integer;
begin
//заполним массив случайными значениями
//и изменим полученное значение согласно
//условию задачи
randomize;
for i:=1 to n do begin
a[i]:=random(100)-sqr(i);
end;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
