Регистрация
kpucmuna2005
21.06.2022 12:30
Информатика
Есть ответ 👍

Поманите с информатикой

154
402
Посмотреть ответы 1

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

zakriev767
zakriev767
4,4(87 оценок)
Program  zadacha; var  a:   array[1..10] of integer; k,i:   integer; begin for  i: =1  to 10 do begin write ('введите  a[',i,']='); readln  (a[i]); end; for  i: =  2 to 10 do begin if  a[i]> a[1]  then k: =k+1; end; writeln  ('количество  элементов массива, больших, чем его первых элемент, равно ',k); end.

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