Program gt; var a:array[1..100,1..100]of integer; i,j,s:integer; begin randomize; for i:=1 to 6 do for j:=1 to 6 do a[i,j]:=random(6)+15; for i:=1 to 6 do begin s:=0; for j:=1 to 6 do s:=s+a[i,j]; writeln(s); end; end.
Var a:array[1..100,1..100]of integer; i,j,s:integer; begin clrscr; s:=0; randomize; for i:=1 to 6 do for j:=1 to 6 do a[i,j]:=random(6)+15; s:=s+a[i,j]; end; end; writeln(s); readkey; end.
Ввод данных заменен на инициализацию от датчика псевдослучайных чисел на интервале [-45;45]. Если нужен именно ввод, строку A(I)=RND... замените на INPUT(A(I))
CONST n = 10 DIM a(1 TO n, 1 TO n) AS INTEGER RANDOMIZE TIMER CLS PRINT "Матрица A" FOR i = 1 TO n FOR j = 1 TO n a(i, j) = INT(90 * RND - 45) PRINT USING ""; a(i, j); NEXT j PRINT NEXT i k = 0 FOR i = 1 TO n IF a(i, i) > 0 THEN k = k + 1 NEXT i PRINT PRINT "Количество положительных на ГД равно "; k
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в массиве:'); var m:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); Writeln('Кол-во положительных: ',a.ElementsByRow.Where(x->x>1).Count) end.
var a:array[1..100,1..100]of integer;
i,j,s:integer;
begin
randomize;
for i:=1 to 6 do
for j:=1 to 6 do
a[i,j]:=random(6)+15;
for i:=1 to 6 do
begin
s:=0;
for j:=1 to 6 do
s:=s+a[i,j];
writeln(s);
end;
end.