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

ПАСКАЛЬ

1)В двумерном массиве 4 на 3 заменить все нулевые элементы на первый элемент матрицы .  

2)   Заменить все элементы главной диагонали на максимальный элемент той же строки  

  1. Ответ
    Ответ дан pro100LiNa

    var a:array[1..20,1..20]of integer;
    i,j:integer;
    begin
    for i:=1 to 4 do
    for j:=1 to 3 do
    readln(a[i,j]);
    for i:=1 to 4 do
    for j:=1 to 3 do
    if a[i,j]=0 then a[i,j]:=a[1,1];
    for i:=1 to 4 do begin
    for j:=1 to 3 do
    write(a[i,j],' ');
    writeln;end;
    end.

Самые новые вопросы