Регистрация
Irina58
23.04.2021 11:22
Информатика
Есть ответ 👍

Решить номер 1, номер 4, номер 2

113
301
Посмотреть ответы 1

Ответы на вопрос:

Maestror
Maestror
4,7(78 оценок)
Var    a: array[1..5] of integer;     i,s,k: byte; begin    writeln('введите 5 чисел');     for i: =1 to 5 do  begin      write(i,')');           readln(a[i]);           if (a[i]> 1) then    begin        s: =s+a[i];         k: =k+1;       end;   end;     writeln('сумма: ',s,'. кол-во: ',k); end.

Популярно: Информатика