Необходимо вычислить процентное количество положительных элементов заданного массива. Вещественный массив – А(25)

Категория: Delphi/Pascal
2012-03-04 20:39:33

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

code: #pascal
program PascalGuru;
 
var A: array[1..25] of integer;     {инициализация переменных}
    i,count:integer;
    proc:real;
 
begin
for i:=1 to 25 do A[i]:=0+random(25);
 
writeln('Vot ishodnyi massiv: ');
for i:=1 to 25 do write(A[i]:8); {вывод массива на экран}
writeln;
writeln;
 
count:=0;
for i:=1 to 10 do
     if A[i]>0 then inc(count);
 
     proc:=(count*100)/25;
 
writeln('Procent polozhitelinyh elementov: ',proc:0:2,' %');
 
readln;
end.
Поделиться:

Похожие статьи:

теги: студенты, одномерный массив, массив