Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Как создать программу которая из трех чисел, введенных с клавиатуры, возводит в квадрат положительные, а отрицательные оставляет без изменения в паскале?

Ответ оставил Гость

Var
mas:array [1..3] of integer;
i:integer;
begin
writeln(Введите 3 числа);
for i:= 1 to 3 do
readln(mas[i]);
for i:= 1 to 3 do
if mas[i]>0 then
writeln(Положительное число , mas[i] , было возведено в квадрат =, sqr(mas[i]))
end.