Регистрация
edinorogsasha
27.05.2021 18:35
Информатика
Есть ответ 👍

Выпишите правильный ответ: Абак, Паскалево колесо, Линейка для навигационных расчетов,
Русские счеты
Абак, Счетно-перфорационная машина, Механическая счетная
машина, Русские счеты
Абак, Паскалево колесо, Механическая счетная машина,
Аналитеческая машина
Вычислительный автомат, Паскалево колесо, Механическая
счетная машина, Русские счеты
​

175
193
Посмотреть ответы 1

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

daniilshvanik
daniilshvanik
4,4(35 оценок)
Const n=10; var a: array[1..n] of integer;     i,k: integer; begin writeln('исходный массив: '); for i: =1 to n do begin   write('a[',i,']=');   readln(a[i]);   end; writeln; k: =0; for i: =1 to n do   if a[i]> 0 then k: =k+1; writeln('k = ',k); end. пример: исходный массив: a[1]=168a[2]=156a[3]=155a[4]=-176a[5]=154a[6]=-175a[7]=-173a[8]=174a[9]=164a[10]=-170k = 6

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