Пятница, 29.03.2024, 11:30
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ignorer, PASCAL26, atvrider  
Форум » Решение задач по информатике » Другие задания » Помогите,пожалуйста,с задачей в Pascal
Помогите,пожалуйста,с задачей в Pascal
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.
 
Форум » Решение задач по информатике » Другие задания » Помогите,пожалуйста,с задачей в Pascal
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024