Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
247074
12.06.2021 05:50 •
Информатика
Написать программу которая определяет количество положительных элементов одномерного массива
Показать ответ
Ответ:
VictoriaOrlova32455
03.10.2020 13:46
Var a:array[1..10] of integet;
i,s: integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(21)-10;
if a[i]>0 then s:=s+1;
end;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Sodadus
22.04.2022 09:08
Где в проверке на выигрыш ошибка. да и так где есть ошибки ? include include include include include using namespace std; using namespace std; char table[3][3]; char name1[30];...
dhwaaо
08.09.2022 17:29
Створити проект по інформатиці, в лазарус. Більше з чисел зменшити на 5, а менше збільшити в 3 раза...
DashaSid
28.12.2020 07:11
Программирование арифметических операций на языке Ассемблер Составить программу на языке ассемблер для микропроцессора Intel 8080, вычисляющую значение функции Y. Соблюдение...
Kotikocerdechko
01.08.2021 20:08
Изучите внимательно код программы. x = int (input () ) у int (input ()) if х 0: іf у 0: print ( Первая четверть ) else: print ( Четвертая четверть ) ) else: if y 0: print...
GrigoriyPokoti
23.11.2021 02:40
Изучите блок-схему и напишите псевдокод задачи дам макс. ...
Зайчуля2004
21.05.2021 01:40
ТЕКСТ ЗАДАНИЯ Установите соответствие между переменной и типом данных Количество связей: 4 А= Программирова integer (целочисленный) ние u В=346 boolean (логический) C=87.9...
Ulyanka2000
28.02.2020 07:38
Установите соответствие между переменной и типом данных А= Программирование integer (целочисленный)В=346boolean (логический)C=87.9float (вещественный)D=Falsestring (строковый)+...
tanyagrey03
06.06.2023 11:40
ЗСоставьте программу, которая находит сумму, произведение и среднее арифметическое двух чисел. в программе Питон ...
irynastar2103
04.10.2022 00:58
Створіть проект у якому можна обчислити значення функції {15-3, якщо -1 x 4y= { {6+4x, для всіх інших x Lazerus...
Andriy0101
10.07.2020 23:31
Установите соответствие между переменной и типом данных...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,s: integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(21)-10;
if a[i]>0 then s:=s+1;
end;
writeln(s);
end.