В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Aigerimajymatova
Aigerimajymatova
13.04.2021 23:11 •  Информатика

Mans.algoritmika.az Учебен Фадлевая сосема бер Презентации
учебне фалловая система овоје Презентации
Neelgona cadenas 1186464724Alevel1
Nosirova Nilufer
1
1
4
10
1-раз.
MADONALCHICTEMA
О
Выбери се носители
информации
канд.
Extreme PRO
300MBA San
ប©
32Go
SanDisk
о
о
CAVAB VER

Показать ответ
Ответ:
laravysotskaya
laravysotskaya
13.11.2021 09:03
1)

const
  n=40;
var
  a:array [1..n] of integer;
  i,k:integer;
begin
  Randomize;
  k:=0;
  Writeln('Исходный массив');
  for i:=1 to n do begin a[i]:=random(63)+20; Write(a[i],' ') end;
  Writeln; Writeln('Четные элементы, кратные 3');
  for i:=1 to n do
    if a[i] mod 6=0 then begin Inc(k); Write(a[i],' ') end;
  Writeln; Writeln('Отобрано элементов: ',k)
end.

Пример
Исходный массив
43 49 27 45 57 20 54 22 74 79 57 64 30 41 67 58 36 68 79 46 28 74 61 21 80 57 50 24 80 36 27 57 38 38 41 71 50 69 39 48
Четные элементы, кратные 3
54 30 36 24 36 48
Отобрано элементов: 6

2)

const
  n=20;
var
  a:array [1..n] of integer;
  i,imin:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  imin:=1;
  for i:=1 to n do begin
    a[i]:=random(351)+20;
    Write(a[i],' ');
    if a[i]<a[imin] then imin:=i
    end;
  Writeln;
  Writeln('Минимальный элемент a[',imin,']=',a[imin])
end.

Пример
Исходный массив
292 54 248 310 181 210 263 284 255 156 177 340 173 39 108 144 270 40 318 155
Минимальный элемент a[14]=39
0,0(0 оценок)
Ответ:
makovskaya2001
makovskaya2001
25.04.2023 23:09
1. Почему работа компьютера невозможна без операционной системы? 
Потому что операционная система дает игроку весь возможносный инструментарий. Много ли вы сможете наработать на выключенном компьютере?
2. Какие операционные системы вы знаете?
Windows (95,98, ME, XP, 7, 10), Android, Linux, MacOS
3. Какие программы, кроме операционной системы, относятся к системному ПО? Драйвера, антивирусы, 

4. Какие системы программирования вам известны?
Pyton, C++
5. Для специалистов какой профессии предназначены системы программирования?
Программист, Специалист в области кибербезопасности
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота