• ПОМОГИТЕ ПОЖАЛУЙСТА, ОПИСАТЬ ПОСЛЕДОВАТЕЛЬНО, ЧТО ВЫПОЛНЯЕТ ДАННАЯ ПРОГРАММА, ПОДРОБНО.
    const m=5;
    n=5;
    var r:array[1..m,1..n] of integer;
    i,j,c,d,k:integer;
    l:boolean;
    begin
    randomize;
    writeln('Исходная матрица: ');
    for i:=1 to m do
    begin
    for j:=1 to n do
    begin
    r[i,j]:=random(15);
    write(r[i,j]:4);
    end;
    writeln;
    end;
    write('c= ');
    read(c);
    write('d= ');
    read(d);
    writeln('Строки, в которых есть число:',c);
    k:=0;
    for i:=1 to m do
    begin
    l:=false;
    j:=1;
    while(j<=n)and not l do
    if r[i,j]=c then l:=true
    else j:=j+1;
    if l then
    begin
    k:=1;
    write(i,' ');
    for j:=1 to n do r[i,j]:=r[i,j]*d
    end;
    end;
    writeln;
    if k=0 then writeln('В матрице нет числа: ',c)
    else
    begin
    writeln('Преобразованная матрица: ');
    for i:=1 to m do
    begin
    for j:=1 to n do
    write(r[i,j]:4);
    writeln;
    end;
    end;
    end.

Ответы 1

  • 1. При помощи датчика случайных чисел заполняется матрица r  размером 5х52. Матрица выводится на экран.3. Спрашивается, какое число необходимо найти в матрице (с).4. Спрашивается, во сколько раз (d) необходимо увеличить строки матрицы, содержащих число с.5. Результат выводится на экран.
    • Автор:

      aleah
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years