Дан целочисленный массив из 5 элементов возвести в квадрат отрицательные элементы
Дан целочисленный массив из 5 элементов возвести в квадрат отрицательные элементы
Гость
Ответ(ы) на вопрос:
ГостьКакой ЯП?
Pascal?
var a:
array[1..5] of integer;
i:integer;
begin
writeln('Введите 5 чисел');
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
if a[i]<0
then writeln(sqr(a[i]));
readln;
end.
Гостьprogram square_negative;
var
a: array[1..5] of integer;
i: integer;
begin
writeln('Ввод массива: ');
for i := 1 to 5 do
begin
write('a[', i, '] = ');
readln(a[i]);
if a[i] < 0 then
a[i] := a[i] * a[i];
end;
writeln('Вывод изменённого массива: ');
for i := 1 to 5 do
write(a[i], ' ');
end.
Не нашли ответ?
Похожие вопросы