Vikof
02.02.2022 14:43

1. Заполнить массив из 10 элементов с клавиатуры. Вывести список нечётных элементов массива.
2. Заполнить массив из 50 элементов случайными числами из диапазона [-30..30]. Вывести список положительных элементов массива.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
виктор238
19.08.2021 16:35

Шрифт Брайля (фр. Braille) - рельєфно-крапковий тактильний шрифт, призначений для письма і читання незрячими і погано бачить людям. Розроблено в 1824 році французом Луї Брайлем (фр. Louis Braille), сином шевця. Луї у віці трьох років поранився в майстерні батька шорний ножем; через що почався запалення ока хлопчик втратив зір. У віці 15 років Луї створив свій рельєфно-крапковий шрифт як альтернативу рельєфно-лінійним шрифтом Валентина Гаюї, надихнувшись простотою «нічного шрифту» капітана артилерії Шарля Барб'є [1]. У той час «нічний шрифт» використовувався військовими для запису повідомлень, які можна було прочитати в темряві. Шрифт Брайля був першою системою запису з двійковим кодуванням.

0,0(0 оценок)
Ответ:
RedFoxTR
26.04.2020 01:40
CLS
a:
INPUT n
IF n < 1 OR INT(n) <> n OR n > 1000 THEN GOTO a
DIM a(n)
h=30000
FOR i = 1 TO n
b:
INPUT a(n)
IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 30000 THEN GOTO b
IF INT ((a(n) - 4 ) / 10) = ((a(n) - 4) / 10) AND a(n) < h THEN h = a(n)
NEXT i
PRINT h
END
или:
n - количество чисел
i - цикловая переменная
a  - натурально число
min  - минимальное число, оканчивающееся на 4
Язык програмирования: Паскаль
var
n,i,a,min: integer;
begin
readln(n);
min := 30001;
for i := 1 to n do
begin
readln(a);
if (a mod 10 = 4) and (a < min) then
min := a;
end;
writeln(min)
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота