Заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку, заменив положительные элементы на число 0.

mondy358 mondy358    1   04.06.2019 14:50    6

Ответы
anel19999 anel19999  05.07.2020 14:05
Uses crt;
var a: array[0..15] of integer;
i:integer;
begin
 for i:=1 to 15 do  begin
   write(random(21)-10,' ');
  end;
  end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика