Предмет: Информатика,
автор: klassnayaK
В массиве А(10) найти количество положительных элементов и их сумму
leonidkorolev2007:
Какой язык?
Ответы
Автор ответа:
2
Значения массива выбираются случайным образом.
var
A: array[1..10] of integer;
summa, polozh, i: integer;
begin
randomize;
for i := 1 to 10 do
begin
A[i] := random(100) - 50;
if A[i] > 0 then
begin
Inc(polozh);
summa := summa + A[i];
end;
end;
writeln('Сумма положительных: ', summa);
writeln('Количество положительных: ', polozh);
write('Все элементы: ');
for i := 1 to 10 do write(A[i], ' ');
end.
Похожие вопросы
Предмет: Алгебра,
автор: kkkuromii
Предмет: Математика,
автор: sam927562
Предмет: Қазақ тiлi,
автор: dzem2288
Предмет: Математика,
автор: ivan19992010
Предмет: Математика,
автор: Kris5101