38

Помигите с ивт 1) дан массив четных чисел…

kirpich6900 06 августа 2022

Помигите с ивт 1) дан массив четных чисел, определить сумму элементов которые делятся на 5 , стоящих на нечетных местах.2) Дано число и массив, найти количесвто элементов, равных данному числу

категория: информатика

63

Program x; const n=10; var a: array[1… n] of integer; s,i: integer; begins: =0; for i: =1 to n do read (a[i]); for i: =1 to n do if (i mod 2 <> 0) and (a[i] mod 5=0) then s: =s+a[i]; writeln (s); end.program x2; const n=10; var a: array [1… n] of integer; k,i,s: integer; begins: =0; readln (k); for i: =1 to n do read (a[i]); for i: =1 to n do if a[i]=k then s: =s+1; writeln (s); end.

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...