составьте программу, которая заполняет массив а[1..10] ...

Question

составьте программу, которая заполняет массив а[1..10] ...

Lera

составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элементы массива с нечетными значениями

Есть ответ

18.12.2022

413

Ответ

Answer 1 · 18.12.2022

var

a:array [1..10] of integer;

i:integer;

begin

randomize;

for i:=1 to 10 do begin

a[i]:=random(20)+1;

write (a[i],' ');

end;

writeln;

for i:=1 to 10 do

if odd(a[i])=true then write (a[i],' ');

readln;

end.

составьте программу, которая заполняет массив а[1..10] ...

составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элементы массива с нечетными значениями

Ответ

var a:array [1..10] of integer; i:integer; begin randomize; for i:=1 to 10 do begin a[i]:=random(20)+1; write (a[i],' '); end; writeln; for i:=1 to 10 do if odd(a[i])=true then write (a[i],' '); readln; end.

var

a:array [1..10] of integer;

i:integer;

begin

randomize;

for i:=1 to 10 do begin

a[i]:=random(20)+1;

write (a[i],' ');

end;

writeln;

for i:=1 to 10 do

if odd(a[i])=true then write (a[i],' ');

readln;

end.