Юлия
сгенерировать набор с 20 чисел в диапазоне от -20 до 50 из них подсчитать квадраты додатних чисел паскаль
PASCAL
сгенерировать набор с 20 чисел в диапазоне от -20 до 50 из них подсчитать квадраты додатних чисел паскаль
PASCAL
сгенерировать набор с 20 чисел в диапазоне от -20 до 50 из них подсчитать квадраты додатних чисел паскаль
var
a: array [1..20] of integer;
c: integer;
begin
randomize;
for c := 1 to 20 do a[c] := random(71) - 20;
write('числа: ');
for c := 1 to 20 do write(a[c], ' ');
writeln;
write('квадраты додатних: ');
for c := 1 to 20 do if a[c] > 0 then write(a[c] * a[c], ' ');
writeln;
end.