Составить программу на языке Паскаль для решения следующей задачи: Дан одномерный массив. Замените все отрицательные элементы массива их квадратами, положительные элементы оставьте без изменения. Входные данные для размерности массива и значения элементов массива задайте самостоятельно.
Аноним:
у тетя есть задание 1? найди меня vk/rusakovwn
Ответы
Ответ дал:
24
Ответ:
var a:array[1..10]of integer;
i,n:integer;
begin
writeln('введите количество элементов');
readln(n);
for i:=1 to n do
begin
Writeln('введите ',i,' элемент массива');
readln(a[i]);end;
for i:=1 to n do
if a[i]<0 then a[i]:=a[i]*a[i];
for i:=1 to n do
write(a[i],' ');
end.
Объяснение:
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад