tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Найти количество положительных
Найти количество положительных элементов в массиве а[1..10]
Руфлер
3 05.06.2019 11:10
0
Ответы
ДарьяГусева13
05.07.2020 22:59
Program z1;
const n=10;
var A: array [1..n] of integer;
i,k:integer;
begin randomize;
For i:= 1 to n do begin
A[i]:=random (21)-10;
write (A[i]:4);end;
k:=0;
For i:=1 to n do
begin
If A[i]>0 then k:=k+1;end;
Writeln;
writeln('k=',k);end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
wartander595
04.08.2019 16:40
Какой должна быть частота дискризации звукового файла, у которого длительность звучания 2 минуты, размер файла 5,1 мбайт, глубина кодирования 16 бит....
3432714566
04.08.2019 16:40
Обьем звукового файла 5,25 мбайт, глубина кодировки 8 бит. звуковая информация записана с частотой дискретизации 44,1 кгц. какова длительность звучания данного звукового файла....
Mrmors
04.08.2019 16:40
Каналы связи обеспечивающие высокоскоростную передачу...
Ученицав
13.09.2020 14:48
Количество нулей, которое будет содержать число 44 десятичной системы счисления, записанное в двоичной системе счисления, равно ......
Anastasia12578
08.10.2019 03:50
Какое целое число предшествует числу 10001 2...
вова966
08.10.2019 03:50
Вкажіть функції субд: а визначення даних б створення потокових презентацій в обробка даних г іння даними д редагування зображень...
vladchivlad
08.10.2019 03:50
Для хранения растрового изображения размером 176 х 176 пикселей отвели 4 кб памяти. каково максимальное возможное число цветов в палитре изображения?...
anaraermus
08.10.2019 03:50
Кто учавствовал в республиканском олимпиаде по информатике 9 класс , в году ?...
kris3256567
08.10.2019 03:50
Какой информационный объем статьи (в мбайтах) находящихся на 70 строках по 50 символов?...
янаневолина
26.10.2020 14:25
Вопрос №15. Какая из операций для объектов (экземпляров классов) поддерживается компилятором по умолчанию Варианты ответов: 1. + 2. – 3. = 4. ==...
Популярные вопросы
Надо из простых предложений перестроить осложнённые обособленные определения....
2
Подумайте, о чём свидетельствовал разгром киева войсками рюрика ростиславича....
2
О9 год ранку незнайко вирушив із квіткового міста в сонячне пішки зі швидкістю...
3
Пятачок и винни-пух принесли кролику 3-килограммовый торт. винни-пух съел...
1
Система уравнения нужно x+3y=7 3x+y=5...
3
Пример № зачетной книжки 0013248. 48: 30=1(18) (остаток), следовательно,...
3
Ккому проснулись чувства дориана в конце твора портрет дориана грея ?...
2
Васин папа съел за 6 мин 18 пельменей. сколько пельмений он мог бы съесть...
3
Два груза с массами m1=60г и m2=50г подвешены на лёгкой нити перекинутой...
2
Машиніст швидкого поїзда, що рухався зі швидкістю 56 км/год, помітив, що...
1
const n=10;
var A: array [1..n] of integer;
i,k:integer;
begin randomize;
For i:= 1 to n do begin
A[i]:=random (21)-10;
write (A[i]:4);end;
k:=0;
For i:=1 to n do
begin
If A[i]>0 then k:=k+1;end;
Writeln;
writeln('k=',k);end.