Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Audika
12.03.2023 15:37 •
Информатика
Вывести на печать положительные элементы массива x1,
Показать ответ
Ответ:
kmelashenko
08.07.2020 01:23
var
x: array [1..100] of real;
i: byte;
begin
for i := 1 to 100 do
begin
x[i] := random(3) - 1;
write(x[i]: 5);
end;
writeln();
for i := 1 to 100 do
if (x[i] > 0) then
writeln(x[i]);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
nastyarapuntseozgwc2
11.12.2020 12:24
Решите на языке с++найти в каждой строке матрицы максимальный и минимальный элементы и поместить их на место первого и последнего элемента строки соответсвенно.матрицу...
1luvash
14.10.2022 01:38
Как превратить из мухи в слона изменяя только одну букву что бы все слова были существительными в именительном падеже!...
Krank09
14.10.2022 01:38
Паскаль. даны целые числа x и y. вычислить: (x-y)/(1+xy)...
vgorelova62
22.05.2022 03:35
Хранение информации на компьюторе и на бумаге плюсы и :...
DcPer11
27.12.2021 02:01
Представьте характеристику объекта карандаш: 1. название 2.значения 3.действия оч надо...
Direx1337
26.01.2022 01:15
Примеры организации хранения информации за...
ИльяФеоктистов
26.01.2022 01:15
1. дан массив с(10). сформируйте из него массивы а и в, предварительно определив его длину, включая в массив а четные положительные элементы, а в массив в – нечетные...
Аня12022006
23.07.2022 19:56
В Python. на промежутке от 1 до n найти и вывести на экран квадраты всех чисел которые кратны 3...
torin39193919
26.08.2022 23:51
В Python. Составить программу, которая запрашивает с клавиатуры числа и считает, сколько из них положительных. Если пользователь вводит число 0, то на экран выводится...
zahar4ikk
07.06.2020 16:59
Дано матриця розмірності N (0 Вхідні дані: У стандартному вхідному потоці у першому рядку записано число N. У наступних N рядках по N цілих чисел, значення яких...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
x: array [1..100] of real;
i: byte;
begin
for i := 1 to 100 do
begin
x[i] := random(3) - 1;
write(x[i]: 5);
end;
writeln();
for i := 1 to 100 do
if (x[i] > 0) then
writeln(x[i]);
end.