Const n=5; m=6;
var
a:array[1..n,1..m] of integer;
i,j,k,max:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
max:=0;
for i:=1 to n do
begin
k:=0;
for j:=1 to m do
if a[i,j] mod 5=0 then k:=k+1;
writeln(i,': ',k);
if k>max then max:=k;
end;
writeln('max = ',max);
end.
Пример:
Исходный массив:
23 5 72 8 28 14
25 78 62 10 61 35
61 30 19 58 98 29
94 36 58 51 90 10
34 82 47 92 41 45
1: 1
2: 3
3: 1
4: 2
5: 1
max = 3
Блин ответ на языке крутится не могу это написать
Программа с НОД
var t,t1,x,y,z:integer;
Function NOD(a, b: integer): integer;
Begin If a=b then NOD:=a
else if a>b then NOD:=NOD(a-b, b)<span>
Else NOD:=NOD(a, b-a);
</span>End;
begin
writeln('Введите 2 числа');
readln(x,y);
t:=NOD(X,Y);
writeln(t);
end.<span>
</span>
Const
N = 13;
Var
A:array[1..N] of integer;
i,Min,Max:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=Random(21)-10;
Write(A[i],' ')
End;
WriteLn;
Min:=A[N];
Max:=A[N];
For i:= 1 to N-1 do
Begin
if A[i]>Max then Max:=A[i];
if A[i]<Min then Min:=A[i]
End;
WriteLn('Max = ',Max);
WriteLn('Min = ',Min);
WriteLn('Max - Min = ',Max-Min);
End.
Пример:
Исходный массив: -1 5 -8 -2 3 -2 -3 10 -10 -8 -4 5 -3
Max = 10
Min = -10
Max - Min = 20
Ответ : день(5+6+15+30) самое наименьшее