Помогите, плиз, очень срочно!!! Составить алгоритм, написать программу, которая заполняет массив из 20 данных случайными числами и делят его на
10-11 класс
|
два массива, в один помещает четные числа в другой нечетные. Вывести исходный массив, массив четных чисел и нечетных чисел.
Спасибо!
var
a,b,c:array [1..20] of integer;
i,k,l:integer;
begin
randomize;
k:=1;
l:=1;
writeln ('Исходный массив: ');
for i:=1 to 20 do
begin
a[i]:=random(9)+1;
if a[i] mod 2 = 0 then
begin
b[k]:=a[i];
inc(k);
end else
begin
c[l]:=a[i];
inc(l);
end;
write (a[i],' ');
end;
k:=k-1;
l:=l-1;
writeln;
writeln ('Массив четных чисел');
for i:=1 to k do write (b[i],' ');
writeln;
writeln ('Массив нечетных чисел');
for i:=1 to l do write (c[i],' ');
writeln;
readln;
end.
Другие вопросы из категории
2) Автоморфным называется число, цифры которого совпадают с последними цифрами его квадрата. Например, 6*6 = 36 , 5*5 =25, 76*76=5776. Определить, является ли данное число автоморфным.
Составить блок схему. Составить программу на языке паскаль.
Дан массив в котором все элементы различны. Удалить из него минимальный элемент.
Читайте также
размерностью 8 и 10 элементов.
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))
есть ли в нем одинаковые соседние элементы.
Пример:
Исходный массив:
4 0 1 2 0 1 3 1 1 0
Заранее огромное спасибо!!!!
возрастанию двумя способами – методом «пузырька» и методом «быстрой сортировки» .
на противоположный.
выведите на экран исходный и полученный массивы
очень прошу