помогите плиз, Заполнить массив случайными числами в интервале [1000;2000) и подсчитать число элементов у которых вторая с конца цифра четная.
10-11 класс
|
var a:array [1..100] of integer;
i,n:integer;
s:string;
Begin
randomize;
for i :=1 to 100 do
begin
a[i]:= random(1000)+1000;
a[i]:=a[i] mod 100;
a[i]:=a[i] div 10;
if a[i] mod 2 = 0 then n=n+1;
end;
writeln(n);
End.
Другие вопросы из категории
3) надо показать таблицу после выреза, должена остататься только таблица, которая внутри (маленький квадратик)
Читайте также
заполнить массив из 9 элементов случайными числами в интервале в интервале [10,150] и найти min элемент массива, у которых вторая с конца цифра- нечетная
случайными числами в интервале от 0 до 4 и вывести номера всех элементов, равных X.
Пример:
Исходный массив:
4 0 1 2 0 1 3 4 1 0
Что ищем? 0
A[2], A[5], A[10]
3 4 1 0 что ищем? 0 А[2], А[5], А[10]
народ срочно нужно, помогите плиз
100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!