KickOff | Дата: Четверг, 28.04.2011, 16:14 | Сообщение # 1 |
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
| В массиве записаны оценки ученика по 10 предметам. Определить общее количество четверок и пятерок.
|
|
| |
Developer1 | Дата: Четверг, 28.04.2011, 19:37 | Сообщение # 2 |
Подполковник
Группа: Заблокированные
Сообщений: 24
[ 0 ]
Статус: Offline
| Могу выполнить icq: 588002847 email: flash_1989@ukr.net skype: rfhfcerf
|
|
| |
KOT_B_MEIIIKE | Дата: Среда, 04.05.2011, 20:01 | Сообщение # 3 |
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
| program n1; var t:array [1..10] of 2..5;n,i:integer; begin writeln('Vvedite ocenki:'); for i:=1 to 10 do begin read(t[i]); if t[i]>=4 then n:=n+1; end; writeln(n); end.
|
|
| |