Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти:...

Question

Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры.
Найти:
-Удвоенную сумму положительных элементов;
-Вывести значения тех элементов, которые меньше заданного числа А кратны 3.

Comments

второе условие подкорректируй

Answer 1

Program PR_1; var b:array [1..10] of integer; i,sum,A: integer; begin for i:=1 to 10 do readln (b[i]); sum:=0; for i:=1 to 10 do if b[i] mod 2=0 then sum:=sum+b[i]; sum:=2*sum; writeln ('удвоенная сумма равна',sum); writeln ('введите число'); readln (A); for i:=1 to 10 do begin if (b[i]>A) and (b[i] mod 3=0) then writeln (b[i]); end.

Comments

так, я немного недорешала, извини. сейчас напишу продолжение

---

я лучше перерешу ее, минут через 10, оке?

---

готово)