Регистрация
fananenkova
24.10.2020 02:47
Информатика
Есть ответ 👍

Дана таблица,содержащая поля фамилия,пол,возраст,школа.

173
385
Посмотреть ответы 1

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

Relig1d
Relig1d
4,4(62 оценок)
Var     a: array[1..10000]of integer;     ans,n,i,f: integer; begin     for i: =1 to n do        read (a[i]);     f: =a[1]; for i: =2 to n do     if(a[i]=f)then inc(ans); writeln(ans); readln; end.

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