profile
Опубликовано 6 лет назад по предмету Информатика от drangaandrew

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

  1. Ответ
    Ответ дан M0ndt4R
    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.
Самые новые вопросы