Дан массив, размером 11. Элементы массива случайные числа из диапазона [1, 15]. Все элементы массива уменьшить на 2. Вывести исходный и измененный массив (в 2 строки). А затем в измененном массиве найти и вывести (в третьей строке) количество элементов, меньших 9.
program LessThanNine;
Var
A, B : Array of Integer;
I, Kolvo : Integer;
begin
randomize;
SetLength(A,11);
SetLength(B,11);
Kolvo := 0;
For I:=0 to 10 do
begin
A[I]:=random(16);
Write(A[I], ' ');
end;
Writeln;
For I:=0 to 10 do
begin
B[I]:=A[I] * 2;
Write(B[I], ' ');
end;
Writeln;
For I:=0 to 10 do
if B[I]<9 then
Kolvo := Kolvo + 1;
Write('Количество элементов меньше 9-ти: ', Kolvo);
end.
Объяснение:
Ну надеюсь не докопаются до того, что тут вывод на экран происходит в том же цикле, что и присваивание значений всем элементам