Const n=5; var a:array[1..5,1..5] of integer; i,j,k:integer; begin Randomize; Writeln('Исходный массив'); k:=0; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=Random(100)+1; Write(a[i,j]:4); if a[i,j] mod 5 = 0 then k:=k+1 end; Writeln end; Writeln('Количество элементов, кратных 5, равно ',k) end.
Var a,b,h,x:real; begin Write('Начальное значение, конечное значение, шаг: '); Read(a,b,h); x:=a; while x<=b do begin Writeln(x:7:4,cos(x)+tan(x):15:8); x:=x+h end end.
n=5;
var
a:array[1..5,1..5] of integer;
i,j,k:integer;
begin
Randomize;
Writeln('Исходный массив');
k:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(100)+1;
Write(a[i,j]:4);
if a[i,j] mod 5 = 0 then k:=k+1
end;
Writeln
end;
Writeln('Количество элементов, кратных 5, равно ',k)
end.
Контрольный пример
Исходный массив
82 100 2 68 88
31 75 21 18 7
100 65 23 80 27
1 88 49 94 93
50 87 77 67 80
Количество элементов, кратных 5, равно 7
a,b,h,x:real;
begin
Write('Начальное значение, конечное значение, шаг: ');
Read(a,b,h);
x:=a;
while x<=b do
begin
Writeln(x:7:4,cos(x)+tan(x):15:8);
x:=x+h
end
end.
Контрольное решение
Начальное значение, конечное значение, шаг: -3 3 0.25
-3.0000 -0.84744595
-2.7500 -0.51138448
-2.5000 -0.05412132
-2.2500 0.61045399
-2.0000 1.76889303
-1.7500 5.34213387
-1.5000 -14.03068275
-1.2500 -2.69424731
-1.0000 -1.01710542
-0.7500 -0.19990759
-0.5000 0.33128007
-0.2500 0.71357050
0.0000 1.00000000
0.2500 1.22425434
0.5000 1.42388505
0.7500 1.66328533
1.0000 2.09771003
1.2500 3.32489204
1.5000 14.17215715
1.7500 -5.69862598
2.0000 -2.60118670
2.2500 -1.86680124
2.5000 -1.54816591
2.7500 -1.33722027
3.0000 -1.13253904