Задать вопрос
11 октября, 03:29

В двумерном массиве А (4,4) определить сумму элементов меньших 7

+4
Ответы (1)
  1. 11 октября, 06:13
    0
    Const

    N = 4;

    C = 7;

    Var

    A:array[1 ... N, 1 ... N] of integer;

    i, j:integer;

    S:real;

    Begin

    Randomize;

    WriteLn ('Исходный массив:') ;

    S:=0;

    For i: = 1 to n do

    Begin

    For j: = 1 to N do

    Begin

    A[i, j]:=random (21) - 10;

    Write (A[i, j]:3,' ') ;

    if A[i, j] < C then S:=S+A[i, j];

    End;

    WriteLn

    End;

    WriteLn ('S = ', S) ;

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