Дана целочисленная матрица а размером м х n, где м и n вводятся с клавиатуры. сформировать одномерный массив в, где в[i] равно сумме элементов кратных трем в i-ой строке. если таких элементов нет, то в[i] равно -10. двумерные массивы
Var A : array[1..100,1..100] of Integer; B : array[1..100] of Integer; M,N,s,i,j : Integer; Begin Readln(M,N); For i:=1 to M do Begin s:=0; For j:=1 to N do Begin A[i,j]:=Random(100); Write(A[i,j]:4); If A[i,j] mod 3 = 0 then s:=s+A[i,j]; end; If s=0 then B[i]:=-10 else B[i]:=s; Writeln(' ',B[i]); end; end.
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(12,0,50); a.Println; var m:=a.Average; Write('Элементы, меньшие среднего значения: '); Writeln('Таких элементов ',a.Where(x->x<m).Println.Count) end.
Пример 34 12 5 35 29 15 23 22 41 27 12 36 Элементы, меньшие среднего значения: 12 5 15 23 22 12 Таких элементов 6
begin var a:=ArrRandom(13,0,100); a.Println; Write('Элементы, меньшие 50: '); Writeln('Таких элементов ',a.Where(x->x<50).Println.Count) end.
Пример 25 17 68 71 27 37 83 32 63 87 29 12 34 Элементы, меньшие 50: 25 17 27 37 32 29 12 34 Таких элементов 8
A : array[1..100,1..100] of Integer;
B : array[1..100] of Integer;
M,N,s,i,j : Integer;
Begin
Readln(M,N);
For i:=1 to M do
Begin
s:=0;
For j:=1 to N do
Begin
A[i,j]:=Random(100);
Write(A[i,j]:4);
If A[i,j] mod 3 = 0 then s:=s+A[i,j];
end;
If s=0 then B[i]:=-10 else B[i]:=s;
Writeln(' ',B[i]);
end;
end.