Узнать количество нужных элементов массива


Дан массив действительных чисел. Подсчитать количество элементов массива, значения которых больше среднего арифметического этого массива.

Program bolshsrarifm;
const n=10;
var
A:array [1..n] of real;
i,kvo:integer;
sum:real;
begin
writeln();
sum:=0;
for i:=1 to n do begin
A[i]:=random(100);
write(a[i],’ ‘);
sum:=sum+a[i];
end;
sum:=sum/n;
writeln();
kvo:=0;
for i:=1 to n do
if sum<a[i] then kvo:=kvo+1;
writeln(’Sred - ‘,sum,’ k-vo - ‘,kvo);
end.

Теги: , ,

Перезаписать элементы массива по условию


Дан массив целых чисел M(40). Переписать элементы массива, кратные 5, в массив М5. Если такие элементы отсутствуют, то вывести на экран соответствующее уведомление.

Program perezapisat;
const n=40;
var
A:array [1..n] of integer;
B:array [1..n] of integer;
i,k:integer;
begin
writeln();
k:=0;
for i:=1 to n do begin
A[i]:=random(100);
write(a[i],’ ‘);
if a[i] mod 5 = 0 then begin
k:=k+1;
b[k]:=a[i];
end;
end;
writeln();
if k=0 then writeln(’Net kratnih elementov’)
else for i:=1 to k do write(b[i],’ ‘);
end.

Теги: , ,

«1234567891011121314151617181920»