Slanj
Спасибо всё понятно объяснил
Тогда ещё один вопрос, если можно
Как бы выглядела программа с массивом такого типа:
a: array[1..20] of Integer;
Так думаю я:
VAR
a: array[1..20] of Integer;
i,Count: Integer;
BEGIN
Randomize;
for i := 1 to 20 do
a[i] := Random(255)+1;
Count := 0;
for i := 1 to 20 do
if (a[i] mod 2) <> 0 then
begin
Inc(Count);
Write(a[i],' ');
end;
WriteLn;
WriteLn('Найдено ',Count,' нечетных чисел.');
ReadLn;
END.
Правильно ли это?