Тема массивы. Язык - pascal abc. Нужна программа по принципу работы Вводим 10 элементов массива - выводятся нечетные.
Answers & Comments
varanchikconst n=10; var a:array [1..n] of integer; i: integer; begin randomize; writeln ("Массив из 10 элементов:'); for i:=1 to n do begin a[i]:= random(101); write (a[i],' '); end; writeln('Нечетные элементы:'); for i:=1 to n do if a[i] mod 2<>0 then write(a[i],' '); end.
Answers & Comments
var a:array [1..n] of integer;
i: integer;
begin
randomize;
writeln ("Массив из 10 элементов:');
for i:=1 to n do
begin
a[i]:= random(101);
write (a[i],' ');
end;
writeln('Нечетные элементы:');
for i:=1 to n do
if a[i] mod 2<>0 then
write(a[i],' ');
end.
Используем рандом для заполнения массива
begin
write("Введите элемент: ",i); readln(a[i]);
write (a[i],' '); // и сразу выводим
end;