by

Дан двумерный массив С,сформировать линейный массив,содержащий номера положительных элементов исходного

Дан двумерный массив С,сформировать линейный массив,содержащий номера положительных элементов исходного

  • //Я сбрасывал ему этот код в лс. Думаю, я имею право на эти баллы.
    var c:array1..10,1..10 of integer;
    ar:array of string;
    i,s,j:integer;
    begin;
    randomize;
    for i:=1 to 10 do
    begin;
    for j:=1 to 10 do
    begin;
    ci,j:=random(-10,10);
    if ci,j>0 then
    begin;
    inc(s);
    setlength(ar,s+1);
    ars:=inttostr(i)+,+inttostr(j);
    end;
    end;
    end;
    writeln(Matrix:);
    for i:=1 to 10 do
    begin;
    writeln;
    for j:=1 to 10 do
    write(ci,j:5);
    end;
    writeln;
    writeln(New array:);
    for i:=1 to s do
    writeln(ari);
    end.
  • Проверенные ответы содержат наджную, заслуживающую доверия информацию, оценнную командой экспертов. На «Знаниях» вы найдте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы — это лучшие из лучших.