Регистрация
krasilnikovavik
04.10.2022 12:46
Информатика
Есть ответ 👍

Информатика Составьте программу Паскаль

265
492
Посмотреть ответы 1

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

hshdk
hshdk
4,7(91 оценок)
Program suma; var a: array [1..100] of integer;       k, i, sum: integer; begin   write('введите число: ');   read(k);   for i: =1 to k do read(a[i]);   for i: =1 to k do       if a[i] mod 10 = 5 then           sum: =sum + a[i];     write('сумма равна: ', sum); end.

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