Сос, паскаль
Нужно через процедуру вывести массив, состоящий из двузначных четных чисел. Почему-то при вводе n=3, выводит только 2 элемента массива.
Type Mass=array [1..100] of integer;
var b:Mass;
n:integer;
procedure заполнение(n:integer);
var i:integer;
begin
for i := 1 to n do
b[i] := random(100);
for i := 1 to n do begin
if (b[i] mod 2 = 0) and (b[i]>=10) and (b[i]<=100) then
write(b[i] );
end;
end;
begin
writeln('Ввод');
read(n);
заполнение(n);
end.
221
427
Ответы на вопрос:
Штоб открить биос нужно нажать f9 или комбинацию клавиш Del + F9 ще можно зажати ESC и нажати на кнопку питанния
Объяснение:
Популярно: Информатика
-
mrlolik150020.02.2020 04:48
-
Kaonix13.12.2022 15:23
-
Артерия07.03.2023 12:47
-
Morkvap518.10.2020 14:15
-
Retro212212.01.2022 16:46
-
ifreemadozzlqu12.06.2020 07:59
-
Lovata05.08.2022 13:55
-
анель10616.09.2021 17:47
-
Gubatu15.08.2021 09:09
-
zemkaaa113.05.2023 20:06