Задать вопрос
20 декабря, 13:55

В массиве A (3,4) элементом последней строки присвоить значения O (стереть), и найти сумму элементов первой строки.

+5
Ответы (1)
  1. 20 декабря, 14:58
    0
    Program Zn;

    uses CRT;

    type mas=array [1 ... 20, 1 ... 20] of real;

    var A:mas; i, j, g, b, n, m, o:integer; l:real;

    Begin

    clrscr;

    write (' Введите диапазон массива: ') ;

    readln (g, b) ;

    write ('Введите размер массива: ') ;

    readln (n, m) ;

    Randomize;

    For i:=1 to n do

    Begin

    For j:=1 to m do

    Begin

    A[i, j]:=random (b-g) + g;

    write (A[i, j]:5:0, ' ') ;

    End;

    writeln;

    End;

    O:=0;

    For i:=1 to n do

    Begin

    For j:=1 to m do

    Begin

    A[3, j]:=O;

    End;

    End;

    For i:=1 to n do

    Begin

    For j:=1 to m do

    If i=1 then

    Begin

    L:=l+A[i, j];

    End;

    End;

    writeln (' Новый массив') ;

    For i:=1 to n do

    Begin

    For j:=1 to m do

    Begin

    write (A[i, j]:5:0, ' ') ;

    End;

    writeln

    End;

    writeln ('Сумма элементов первой строки = ', l:5:0) ;

    readln;

    End.

    Вообщем вот.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «В массиве A (3,4) элементом последней строки присвоить значения O (стереть), и найти сумму элементов первой строки. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы