НАПИШИТЕ ПОЖАЛУЙСТА НЕ СКОЛЬКО ПРОГРАММ НА ПАСКАЛЬ !! ОЧЕНЬ НУЖНО, ТОЛЬКО ЧЕТНЫЕ.ПОЖАЛУЙСТА!!

1

Ответы и объяснения

2012-12-06T18:59:22+00:00

Program CL1;

Var M array[1..10]of integer;

K,sum,i:integer;

Begin

For i:=1 to 10

M[i]=random(15-(-15)+15$

Writeln('Исходный массив');

For i=1 to 10 do

Write (M[i]),';');

K=0;

sum=0;

writeln;

For i:=1 to 10 do

if M[i]>0 then write M[i]),';'

Witeln('Количество положительных элементов,'К')

End.