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

Question

Информатика

Маринка

18 марта, 21:09

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

+3

Ответы (1)

Знаете ответ на вопрос?

Витуся · Answer 1

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.