заполнить массив случайными числами в интервале [20;100] и подсчитать отдельно число четных и нечетных элементов
10-11 класс
|
Паскаль
_____________
uses crt;
var
max, i , n,k2,k : integer;
m: array [1..100] of integer;
begin
randomize;
write('vvedi razmer massiva = ');
read (n);
k:= 0;
k2:=0;
for i:=1 to n do
m[i]:= random (100)+20;
for i:=1 to n do
if m[i] mod 2 =0 then k:= k+1 else k2:= k2+1;
writeln;
for i:= 1 to n do
write (m[i],' ');
writeln;
writeln ('chetnii = ',k);
writeln ('necetnii = ',k2);
readkey;
end.
Другие вопросы из категории
Упражнение 1.
Выполните сортировку элементов из вашего варианта методами: пузырьком,вставками, бинарными вставками, выбором. Приведите примерыпоследовательностей, показывающих, что сортировки выбором, бинарнымивставками являются неустойчивыми.Упражнение
2.
Упорядочите элементы из вашего варианта по неубыванию следующимисортировками: быстрой, пирамидальной. Приведите примеры последовательностей,показывающих, что быстрая и пирамидальная сортировки являются неустойчивыми
Пожалуйста помогите сделать задание в паскале.
Дана
матрица А(3.3)
1)
Читайте также
случайными числами в интервале от 0 до 4 и вывести номера всех элементов, равных X.
Пример:
Исходный массив:
4 0 1 2 0 1 3 4 1 0
Что ищем? 0
A[2], A[5], A[10]
массив:
14 25 13 30 76 58 32 11 41 97
Результат:
30 11 41 32 13 14 25 76 97 58
говорили про какой-то метод пузырька. хелп ми Т_т
p.s. паскаль abc
ребят ,если честно - срочно...
100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!