Составьте программу, которая формирует массив из 10 случайных чисел от -15 до 15 и подсчитывает количество положительных элементов в массиве.
Составьте программу, которая формирует массив из 10 случайных чисел от -15 до 15 и подсчитывает количество положительных элементов в массиве.
Гость
Ответ(ы) на вопрос:
Гостьprogram aaa;
var
i,j,count:longint;
A:array[1..10] of longint;
begin
for i:=1 to 10 do
A[i]:=random(31)-15;
count:=0;
for i:=1 to 10 do
if A[i]>0 then
inc(count);
writeln(count,' положительных элементов')
end.
ГостьПисал с учётом очистки экрана. Тобишь модуль Uses Crt, если не проходили, то лучше удали эту строчку и "ClrScr".
Program G;
Uses Crt;
Const N=10;
Var i, count: integer; mass: array [1..N] of integer;
Begin
ClrSCr;
Count:=0;
For i:=1 to N do
Begin
Mass[i]:=Random(31)-15;
Write(Mass[i]:4);
End;
Writeln;
For i:=1 to N do
If mass[i]>0 then inc(count);
If count=0 then writeln('В массиве нету положительных чисел.')
Else writeln('Количество положительных чисел в массиве: ', count);
Readln;
End.
Не нашли ответ?
Похожие вопросы