begin Randomize; s := 0; Write('Элементы массива: '); for i := 1 to n do begin x[i] := Random(101) - 50; Write(x[i]:5); if x[i] >= 0 then s := s + sqr(x[i]) end; Writeln(#13#10, 'Сумма квадратов неотрицательных элементов равна ', s) end.
Тестовое решение: Элементы массива: -29 1 -36 50 -29 31 4 28 -25 -1 17 -45 -48 -19 -49 -49 -30 -22 8 18 Сумма квадратов неотрицательных элементов равна 4939
Сначала спрашивайте у пользователя число n, потом заполняйте массив (с проверкой на [-100..100]), потом в цикле проверяйте каждый элемент массива на кратность 5. Параллельно с проверкой на кратность (в том же цикле) кидайте первое кратное число в переменную max, и сравнивайте с это переменной другие числа, кратные 5. Если больше - перезаписываете значение max
Цикл: (counter - счетчик, n - колво чисел в массиве)
max := 0; for counter = 1 To n Do if (Massive[counter] mod 5) = 0 then if Massive[counter] > max then max := Massive[counter];
Код программы:
var x,y:real;
begin
writeln('Введите x');
readln(x);
if (x >= 2) then
y := 2.4*x*x*x + 3*x
else
y := -14*cos(x)+ 2;
writeln('y = ', y);
end.