Задать случайный массив на интервале [-2; 8].найти количество положительных чисел .нужна программа на pascalabc
orlovski155555
3
21.05.2019 07:50
0
Другие вопросы по теме Информатика
gdrsfdfsfss
24.08.2019 22:30
пппппп41ррр
24.08.2019 22:30
peharbuxal
24.08.2019 22:30
Элиана01
15.03.2021 14:57
sddssddd
06.08.2019 02:10
dgolsky07
05.08.2019 22:11
YTTeamGardnYT
19.04.2019 09:49
makl192
19.04.2019 09:49
staskostenko1
29.07.2019 01:50
Популярные вопросы
- Тело движется в положительном направлении оси х со скоростью 3 м/с. в начальный...
3 - Для изготовления игрушек использовали 2 пакета по 15 листов красной бумаги и...
2 - Написать текст про любую старинную игрушку, !...
2 - 3ч14мин*2= 5ч5мин/5= 8ч45мин/5= 18ч24мин*4= 12ч21мин/3= 11ч12мин/3=...
2 - Грибы,как и животные а)малоподвижные б)питаются готовыми органическими веществами...
2 - Science museum it s one of most of london s museums. it was foundedscience museum...
3 - Прочитав параграф 38 учебника ,заполните таблицу ,,сроки и глубина посева семени...
3 - При наблюдении в течении 5 минут за дорожным движением было подсчитано, что из...
1 - Подчеркни слова которые не подчиняются общему павилу.армия галлерея олея фомилия...
2 - Составьте предложения с союзами и,если,но,потому что,а !...
3
const nn=10;
var
A: array [1..nn] of integer;
i,k:integer;
begin
Randomize;
k:=0;
for i:= 1 to nn do
begin
A[i]:=random(10)-2;
write (A[i],' ');
end;
for i:= 1 to nn do if (A[i]>0) then k:=k+1;
writeln;
writeln(k);
end.