Регистрация
ДианаЛаймова2003
31.01.2022 19:47
Информатика
Есть ответ 👍

Составьте программу, которая формирует массив из 10 случайных целых чисел от 5 до 15 и подсчитывает количество нечетных чисел.(и выводит их)

267
383
Посмотреть ответы 2

Ответы на вопрос:

Муся000
Муся000
4,8(95 оценок)
Var a: array[1..15] of integer; i: integer; begin for i: =1 to 10 do begin a[i]: =random(5,15); if a[i] mod 2 < > 0 then write(a[i],' '); end; end.
Vankoed
Vankoed
4,6(41 оценок)
Program prog; uses crt; var a: array[1..100]  of integer;       i, n: integer;       begin clrscr; write('size = '); readln(n); for i: =1 to n do begin a[i]: =i-100; write('a[',i,']=', a[i],'  '); end; end.

Популярно: Информатика