Помогите пожалуйста с заданиями!
Массив из 30 элементов,содержащие данные экзамена(баллы,набранные на ЕГЭ).Если ученик имеет балл>=20,то это означает,что он удачно сдал экзамен .Найти средний балл сдавших экзамен.
В массиве из 10 элементов найти кол-во четных и нечетных элементов.Массив
заполнить RANDOM(100).
Только можно,пожалуйста,с пояснениями !!!

1

Ответы и объяснения

2013-12-18T21:11:23+04:00
1)
const n=30;
var a:array[1..n] of integer; i,s,k:integer; sr:real;
begin
s:=0;
k:=0;
for i:=1 to n do
a[i]:=random(100);
for i:=1 to n do begin
if a[i]>=20 then begin
s:=s+a[i];
k:=k+1;
end;
end;
sr:=s/k;
write('Средний балл ',sr:3:1);
end.

2)
const n=10;var a:array[1..n] of integer; i,nch,ch:integer;
begin
nch:=0;
ch:=0;
for i:=1 to n do begin
 a[i]:=random(100);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if ((a[i] mod 2)=0) then 
ch:=ch+1
else
nch:=nch+1;
end;
writeln('Четных ',ch);
write ('Нечетных ',nch);
end.