Известны оценки по контрольной работе по информатике в вашей группе. подсчитать количество полученных четвертое и пятерок. (дан массив целочисленный, определить количество элементов массива, значение которого больше трех) составьте, , программу,
Const n=10; var a:array[1..n] of integer; i,k:integer; begin Randomize; for i:=1 to n do begin a[i]:=random(4)+2; write(a[i]:5); end; writeln; k:=0; for i:=1 to n do if a[i]>3 then k:=k+1; writeln('k = ',k); end.
Всего 3 партии: второй: 14; первый: 24. 1) Второй в третьей партии проиграл половину, следовательно 14 - это половина того , что у него было; значит первый в третьей партии выиграл 14, следовательно у него было на 14 меньше. Итоги второй партии: второй: 14*2=24; первый: 24-14=10. 2) Первый во второй партии проиграл половину , следовательно 10 - это половина того, что у него было; значит второй во второй партии выиграл 10, следовательно у него было на 10 меньше. Итого первой партии: второй: 28-10=18; первый: 10*2=20. 3) Второй в первой партии проиграл половину, следовательно 18- это половина того, что у него было; значит первый в первой партии выиграл 18, следовательно у него было на 18 меньше. Итоги до начала игры: второй: 18*2=36; первый: 20-18=2. ответ : 2 монеты было у первого пирата до начала игры. Проверка: второй: (36:2+10):2=14; первый: (2+18):2+14=24.
Итоги 3 партии: второй: 14; первый: 24. 1) Второй в третьей партии проиграл половину, следовательно 14 - это половина того , что у него было; значит первый в третьей партии выиграл 14, следовательно у него было на 14 меньше. Итоги второй партии: второй: 14*2=24; первый: 24-14=10. 2) Первый во второй партии проиграл половину , следовательно 10 - это половина того, что у него было; значит второй во второй партии выиграл 10, следовательно у него было на 10 меньше. Итого первой партии: второй: 28-10=18; первый: 10*2=20. 3) Второй в первой партии проиграл половину, следовательно 18- это половина того, что у него было; значит первый в первой партии выиграл 18, следовательно у него было на 18 меньше. Итоги до начала игры: второй: 18*2=36; первый: 20-18=2. ответ : 2 монеты было у первого пирата до начала игры. Проверка: второй: (36:2+10):2=14; первый: (2+18):2+14=24
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(4)+2;
write(a[i]:5);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]>3 then k:=k+1;
writeln('k = ',k);
end.
Пример:
5 3 3 2 5 4 4 3 5 3
k = 5