Var a:array [1..5,1..3] of integer; b:array[1..5] of integer; x,y,imax:integer; Begini:=1; randomize; for x:=1 to 5 do for y:=1 to 3 do a[x,y]:=random(10); for x:=1 to 5 do Begin for y:=1 to 3 do write(a[x,y],' '); writeln; End; for y:=1 to 3 do Begin for x:=1 to 5 do b[i]:=b[i]+a[x,y]; i:=i+1; End; for i:=1 to 3 do if b[i]>max then max:=b[i]; writeln(max); End.
Первый вариант программы: Const N = 5; Var A:array[1..N] of integer; i:integer; S:real; Begin Randomize; S:=0; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(21)-10; Write(' ',A[i]); S:=S+A[i]; End; WriteLn; WriteLn('Сумма его элементов: ',S); End.
Второй вариант программы: Const N = 13; Var A:array[1..N] of integer; i,S,B:integer; Begin Randomize; S:=0; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(21)-10; Write(' ',A[i]); End; WriteLn; Write('Введите номера пяти элементов: '); For i:= 1 to 5 do Begin Read(B); S:=S+A[B]; End; WriteLn('Их сумма равна: ',S); End.
Пример: Исходный массив: 0 -9 6 4 -7 -1 9 -7 -2 -4 -6 4 -1 Введите номера пяти элементов: 3 4 7 12 1 Их сумма равна: 23
Const N = 33; Var A:array[1..N] of integer; i:integer; Begin Randomize; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(100000)-50000; Write(' ',A[i]); End; WriteLn; WriteLn; Write('Трёхзначные числа:'); For i:= 1 to N do if (99<Abs(A[i]))and(Abs(A[i])<1000) then Write(' ',A[i]); WriteLn; Write('Номера четырёхзначных чисел:'); For i:= 1 to N do if (999<Abs(A[i]))and(Abs(A[i])<10000) then Write(' ',i) End.
a:array [1..5,1..3] of integer;
b:array[1..5] of integer;
x,y,imax:integer;
Begini:=1;
randomize;
for x:=1 to 5 do
for y:=1 to 3 do
a[x,y]:=random(10);
for x:=1 to 5 do
Begin
for y:=1 to 3 do
write(a[x,y],' ');
writeln;
End;
for y:=1 to 3 do
Begin
for x:=1 to 5 do
b[i]:=b[i]+a[x,y];
i:=i+1;
End;
for i:=1 to 3 do
if b[i]>max then max:=b[i];
writeln(max);
End.