1. Информатика
  2. Паскаль: составить массив

Паскаль: составить массив из 5 элементов с клавиатуры и вывести в строку.если элемент положительный,то заменить его на противоположный.

fereela fereela    1   19.05.2019 14:30    0

Ответы
Dan2707 Dan2707  12.06.2020 18:16

var
a: array[1..5] of integer;
i: integer;
begin
for i := 1 to 5 do begin
readln(a[i]);
if(a[i] < 0) then a[i] := a[i] * (-1);
end;
for i := 1 to 5 do write(a[i], ' ');
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
калькуляторлена калькуляторлена  02.11.2020 09:36
что тут надо переделать. Program Z2; Var a,b,с:integer; Begin Readln (a,b,c); If a =b+c then Writeln (‘Нет’) Else if b =a+с then Writeln (‘Нет’) Else if c =a+b then Writeln...
tank243188 tank243188  02.11.2020 09:36
Пропускная канала связи составляет 10 Мбит/с. Канал является чувствительным к шуму, поэтому избыточность кода передачи составляет 20%. Определить, сколько времени может...
jiyan jiyan  02.11.2020 09:36
– это центральный компьютер, который распределяет общие ресурсы....
Юлия7881 Юлия7881  02.11.2020 09:36
ИТОГОВЫЕ ТЕСТОВЫЕ ЗАДАНИЯ К РАЗДЕЛУ II 1. Какое заболевание вызвано негативным влиянием компьютера на организм человека? A) Нарушение обмена веществ. B) Возникновение...
Губотрах Губотрах  02.11.2020 09:36
1)на какие части тела обращены электроные устройства надлежащим образом?...
zagyramasa zagyramasa  28.06.2019 07:10
Паскаль! 1)написать программу ,которая проверяет,является ли число четным или нечетным 2)написать программу,которая проверяет,делится ли на 3 целое число введенное с...
volodya13031 volodya13031  23.09.2019 15:40
Напишите программу для паскаль abc !...
catarshaninp08iio catarshaninp08iio  23.09.2019 15:40
Дан массив из 10 элементов заполнение и вывод при цикла заполнение random любого числа найдите сумму и произведение всех элементов массива...
klochko2012p04hpi klochko2012p04hpi  14.05.2020 07:12
Нужно написать время. Большое полное предложение. Пример:Ufa (17:57) - It is three to six in the afternoon in Ufa.Таким же образом расписать следующее время.1) Paris...
Nastya1771 Nastya1771  14.05.2020 07:12
5.1. АВ-8 см, к нүктесі АВ кесіндісінің ортасы болатынын ескере отырып, АВ түзуінен AX + BX + КX = 9 см болатындай етіп, барлық Х нүктелерін табыңдар. Бұл нүктелердісуреттен...

Популярные вопросы