Регистрация
kudryashovayantemik
15.05.2022 04:58
Информатика
Есть ответ 👍

Найти в одномерном массиве а10 количество положительных элементов, кратных трём. написать программу на языке паскаль.

149
233
Посмотреть ответы 2

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

Няшка1097
Няшка1097
4,5(29 оценок)

var a: array[1..10] of integer;

i,k: integer;

begin

k: =0;

for i: =1 to 10 do

if (a[i]> 0) and (a[i] mod 3=0) then k: =k+1;

writeln ('k=',k);

readln;

end.

 

так)

Besta69
Besta69
4,6(76 оценок)
1- б 2 - в 3 - б 4 - б или г (зависит от того какая память, если память имеется ввиду,то б, если оперативная, то г) 5 - б

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