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

помогите с программированием в Паскале.
Создать целочисленную матрицу 4х5. Сформировать однородный массив, который содержит отрицательные элементы созданной матрицы.

  1. Ответ
    Ответ дан Gleb1Kosyrev
    var ma:array[1..4,1..5] of integer;
    ar:array[1..20] of integer;
    k,i,j:integer;
    begin;
    randomize;
    writeln('Matrix:');
    for i:=1 to 4 do
      begin;
       writeln;
        for j:=1 to 5 do
         begin;
         ma[i,j]:=random(-10,10);
           if ma[i,j]<0 then
           begin;
             inc(k);
             ar[k]:=ma[i,j];
           end;
         write(ma[i,j]:4);
         end;
      end;
    writeln;
    writeln('Final array:');
    for i:=1 to k do
    write(ar[i]:4);
    end.
    1. Ответ
      Ответ дан ralterika
      Спасибо большое :)
Самые новые вопросы