Помогите с паскалем! Написать программу. Составить блок схему.
10-11 класс
|
Вставить заданное число в массив целых чисел перед последним четным элементом.
const
m = 10;
var
a: array[1..m+1] of integer;
i, k: integer;
begin
write ('Исходный массив: ');
for i := 1 to m do
begin
a[i] := random(100);
write (a[i],'; ');
end;
writeln;
write('Введите число: ');
readln(k);
for i:=m+1 downto 1 do
begin
a[i]:=a[i-1];
if a[i] mod 2=0 then
begin
a[i-1]:=k;
break;
end;
end;
write('Измененный массив: ');
for i := 1 to m+1 do
write (a[i],'; ');
end.
Другие вопросы из категории
Читайте также
Я не могу сочинить этот "алгоритм", помогите ;)
Блок-схемы строить не надо, просто описать, что надо делать.
чек находится ближе к началу координат.
этой задачке составить блок-схему. пожалуйста. дам 60 баллов
столбце первый и последний отрицательные элементы;
(Паскаль)