Войти Регистрация Спроси ai-bota

Написать ! ! в одномерном массиве все отрицательные элементы заменить модулем, а положительные заменить числом 888

Ответ:

lllllll47900732

30.06.2020 16:16

Program test;
const N = 10;
var i:integer;
m:array [1..n] of integer;
begin
for i:=1 to n do
readln(m[i]);// мы заполняем массив числами
for i:=1 to n do
begin
if m[i]>0 then m[i]:=888;i
f m[i]<0 then m[i]:=m[i]*(-1);
writeln(m[i]);
end;
end.

0,0(0 оценок)

Ответ:

125VikA125

30.06.2020 16:16

Во вложении

0,0(0 оценок)

Популярные вопросы: Информатика

вирона1

17.06.2021 09:18

Напиши те решения var у : real; i : integer; у : = 1 ; i : = 1; while i 1 do begin y: =y + 1 / i; i: = i – 1; end;...

lenaseredenko

16.09.2022 07:51

пмоготи решить по информатике на паскале. в кругу стоят n-ое количество , которые считаются считалочкой. каждый 3 человек выбывает. кто отсался. пример водиться: 11 1 2 3 4 5...

nataotkidach

14.07.2021 05:41

Выделите красным цветом ложные высказывания....

YuliaLitskevich

12.07.2020 16:19

Определите количество цветов в палитре изображения размером 640х480 точек,если оно занимает в памяти компьютера 4 мбайта.! !...

ibraevaira

31.08.2020 04:13

Как определить количество определенных слов в c#...

1234234421

22.10.2020 23:45

решить задание по пайтону, И напишите обьяснение функций что бы я понимал как оно работает...

Makarzzz

31.07.2020 01:24

Применение виртуальных машин...

ботан777

09.08.2022 16:20

с информатикой кл 1. Что будет напечатано в результате работы фрагмента кода?Pascal:s:= мама мыла раму ;while pos( ам ,s) 0 do begin x := pos( ам , s); delete(s, x, 2);end;writeln(length(s));Python:s...

kiss123kiss

20.10.2021 13:45

Варифметичній прогресії 23-й член дорівнює 17,5.обчисліть суму 22-го та 24-го членів прогресії...

ргшгр

20.10.2021 13:45

Средние линии треугольника относятся как 2: 2: 4 , а периметр 45 см . найдите стороны треугольника....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку