var a: array [1..10] of integer;
var i,s: integer;
begin
randomize();
for i:=1 to 10 do
a[i]:=random(10)+1;
//В столбик
for i:=1 to 10 do
writeln(a[i]);
//В строчку
writeln();
for i:=1 to 10 do
write(a[i],' ');
//Среднее арифметическое
s:=0;
for i:=1 to 10 do
s:=s+a[i];
writeln();
writeln('Среднее арифметическое: ',s/10);
// количество элементов массива, значение которых равно 4
s:=0;
for i:=1 to 10 do
if (a[i]=4) then s:=s+1;
writeln('Количество элементов массива,',
' значение которых равно 4: ',s);
end.
program z1;
var a,b,k,i:integer;
begin
k:=0;
write('Ââåäèòå êîîðäèíàòó à: ');
read(a);
write('Ââåäèòå êîîðäèíàòó b: ');
read(b);
for i:=a to b do begin
if i mod 3=0 then begin
writeln(i);
k:=k+1;
end;
end;
writeln('Количество чисел кратных трём равно ',k);
readln;
end.