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

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

+3
Ответы (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 (стереть), и найти сумму элементов первой строки. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Дан алгоритм: Начало Присвоить a значение 1 Присвоить b значение 1 Присвоить c значение 0 Пока a меньше чем 1001 Начало цикла Присвоить b значение b * a Присвоить a значение a + 1 Конец цикла Пока b делится на 6 Начало цикла Присвоить c значение c +
Ответы (1)
Задачи на массивы (в паскале) : 1. Найти количество нулей в одномерном массиве. 2. найти сумму элементов кратных 5. 3. найти сумму первых 5 элементов. 4. верно ли что в массиве есть два нуля. 5. найти сумму элементов из промежутка от А до В.
Ответы (1)
1. Дан массив из 20 элементов, принимающих значения от 0 до 50. Найти количество элементов, больших 25 и сумму элементов, меньших 25. 2. Найти в массиве наибольший элемент и поменять его местами с первым элементом.
Ответы (1)
Даны два числа. Если их значения не равны, то присвоить каждому сумму этих значений, а если равны, то присвоить числам нулевые значения. Вывести новые значения A и B.
Ответы (1)
Даны 2 переменные целого типа а и в если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить пременным нулевые значения. вывести новые значения а и в
Ответы (1)