Форум » Обработка числовых последовательностей » Будет ли эффективна программа C4 » Ответить
Будет ли эффективна программа C4
Optimus001: Будет ли эффективна следующая программа. Сколько за этот код дадут баллов. Задача № 5503 [pre2] type mas=array[1..1000] of integer; var a:mas; i,j,n:integer; R,F:longint; begin r:=0; readln(n); for i:=1 to n do readln(a[ i]); readln(F); for i:=1 to n-1 do for j:=i+1 to n do if (a[ i] *a[j] mod 14 = 0)and(a[ i] *a[j]>R) then R:=a[ i] *a[j]; writeln('вычисленное контрольное значение: ',R); if R=F then writeln('Контроль пройден') else writeln('Контроль не пройден'); readln; end.[/pre2]
Ответов - 3
Поляков: Это решение задачи А (максимум 2 балла).if r=0 then r:=1; А это зачем? По условию нужно принять R=0, если не нашли такого числа.
Optimus001: А что нужно для того чтобы получить 4 бала. решение должно быть без массива?
Поляков: Optimus001 пишет: чтобы получить 4 бала. решение должно быть без массива? Да.
полная версия страницы