Составить программу на языке Паскаль для решения следующей задачи: Дан одномерный массив. Замените все отрицательные элементы массива их квадратами, положительные элементы оставьте без изменения. Входные данные для размерности массива и значения элементов массива задайте самостоятельно.
Karakulova2004
1
15.01.2022 13:08
16
Другие вопросы по теме Информатика
Настя2017465
02.04.2021 12:59
111yo11111111111
02.04.2021 13:02
Аким548
14.11.2020 15:55
mushicz
12.05.2020 13:08
Dasha29081
12.05.2020 13:04
VikaNika16
31.03.2020 11:55
anastasiyageras
31.03.2020 11:55
kychymm
09.09.2019 13:10
Популярные вопросы
- Спишите предложения из повести м.м.прившина кладовая солнца .в...
1 - В1913 году россия: а) успешно выходила на внешний рынок. б) завершила...
2 - Чувствительный волосок имеется у гидры в клетках:...
2 - Вставьте how many или how mach. 1) tomatoes are there? 2) milk...
2 - Подберите синонимы к следующим фразеологизмам кот наплакал, во...
2 - Из какой части цветка развивается плод ?...
3 - Вычислите: (1/6-5/9)*(1/2-3/7)*7целых1/5...
3 - Написать сочинение по картине исмаилова автопортрет...
2 - Эссе на тему образ современной женщины...
2 - Напиши правильно имена тих людей 1 nod don 2 ids 3 mge 4 etd...
1
Объяснение:
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.