В данном фрагменте программы выполняется:

A) поиск четных значений

Б) подсчет суммы элементов, больших 7

В) подсчет количества элементов,больших 7

Г) подсчет количества элементов, кратных 7.

a:=0;

For i:=1 ti 10 do

Begin

Readln(x);

If x>7 Then a:=a+1;

End;

Writeln(a);

Irrishka2005    3   25.05.2020 13:25    1