Решите в кумире или паскале (в кумире кнч буду больше рада) заполнить массив 20-ю числами так, что каждый пятый элемент был равен 1, остальные равны 0. вывести массив на экран. заполнить массив вводом с клавиатуры. если будет введено отрицательное число, программа возьмет его модуль.

151

174

Посмотреть ответы 2

Ответы на вопрос:

misspsix123

Информатика

4,4(65 оценок)

// =================================== // 1 // =================================== var a: array [1..20] of integer; i: integer; begin for i : = 1 to 20 do begin if i mod 5 = 0 then a[i] : = 1 else a[i] : = 0; write(a[i]: 2); end; end. // =================================== // 2 // =================================== var a: array [1..5] of integer; i: integer; begin for i : = 1 to 5 do begin write('a[',i,'] = '); readln(a[i]); if a[i] < 0 then a[i] : = abs(a[i]); end; for i : = 1 to 5 do write(a[i]: 2); end.