Дроид плюхнул коричневую жижу на горку варёных овощей. Только судмедэкспертиза смогла бы подтвердить, что в подливе действительно был нерфий фарш, но всё равно это далеко ушло от безвкусных пищевых кубиков, которыми их кормили в детстве, а тем более – от сухих пайков.
Мысли в столовой
Карен Тревисс, "Приказ 66"





Сколько глобус ни крути, там Fess-Style не найти...
Сайт Fess'a » ЕГЭ Задача С2 Найти минимальный балл - Форум
[ Новые сообщения · Участники · Правила форума · Поиск ]
  • Страница 1 из 1
  • 1
Форум » Программирование » Паскаль » ЕГЭ Задача С2 Найти минимальный балл (Работа с массивами)
ЕГЭ Задача С2 Найти минимальный балл
FessДата: Четверг, 28.03.2013, 21:51 | Сообщение # 1

Добрый админ
Сообщений: 2339
Статус:
Задание:



Мой вариант решения:

Код
program sred_min_ball;

const      
      N=5;      
var      
      a: array [1..N] of integer;      
      i, j, min: integer;      
begin
      j:=1;
      for i:=1 to N do      
      begin
       readln(a[i]);
       if(a [i]> 19) then
        begin
         a[j]:=a[i];
         j:=j+1;      
        end;
      end;

i:=j-1;
writeln('--------');

min:=101;

      for j:=1 to i do
       begin
       writeln(a[j]);
       if (min > a[j]) then min:=a[j];
       end;

writeln('---------');
writeln('Мин. число: - ',min);
           
end.

Мой комментарий: если бы не жесткие рамки по количеству переменных, я бы ввёл больше переменных. В некоторых местах пришлось присваивать отслужившим своё переменным новые значения (чтобы не вводить новых), это для меня необычно. Для удобства кол-во учеников уменьшено с 30 до 5 (переменная N)

Мой ответ:





Моя версия тоже работает, но предложенный в ответах вариант, как оказался, был намного проще.
Прикрепления: 5816040.png (145.5 Kb) · 2491469.png (1.8 Kb) · 9794261.png (9.5 Kb)
 
Форум » Программирование » Паскаль » ЕГЭ Задача С2 Найти минимальный балл (Работа с массивами)
  • Страница 1 из 1
  • 1
Поиск: