Ответ: За 17 вопросов Вася гарантированно сможет узнать код.
...
for i := 1 to N do
begin
if (a[i] mod 10 = 5) then
begin
inc(x);
y += a[i];
end;
end;
writeln(y / x);
...
...
Проверить все элементы массива A. Если остаток от деления элемента на 10 равен пяти, то увеличиваем переменную x на единицу, а y на значение данного элемента. Затем делим y на x и получает результат.
Ответ:
1)точно такое количество букв?
2)планшет
3)процессор
4)ОЗУ
5)шина
1) readln(n);
if n mod 3 = 0 then
writeln('True');
2)readln(x,y);
if (x=0) or (y=0) then
writeln('OSb');
if (x=0) and (y=0) then
writeln('center');