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

+ 0 -

Gryzovik

12 мая 2013 г., 22:47:50 (10 лет назад)

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.

+ 0 -

SavvaLisa

12 мая 2013 г., 23:29:13 (10 лет назад)

Писал с учётом очистки экрана. Тобишь модуль 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.