Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

помогите плиз, Заполнить массив случайными числами в интервале [1000;2000) и подсчитать число элементов у которых вторая с конца цифра четная.

10-11 класс

Test123321 28 авг. 2013 г., 23:38:12 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Ирочка012
29 авг. 2013 г., 1:22:29 (10 лет назад)

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.

Ответить

Другие вопросы из категории

Читайте также

Помогите, пожалуйста!

заполнить массив из 9 элементов случайными числами в интервале в интервале [10,150] и найти min элемент массива, у которых вторая с конца цифра- нечетная

Срочно! Помогите пожалуста! Нужно написать програмный код в турбо паскале! Заранее ОГРОМНОЕ СПАСИБО!! Заполнить массив из 10 элементов

случайными числами в интервале от 0 до 4 и вывести номера всех элементов, равных X.

Пример:

Исходный массив:

4 0 1 2 0 1 3 4 1 0

Что ищем? 0

A[2], A[5], A[10]

1)заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку,заменив все четные элементы на число

100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!



Вы находитесь на странице вопроса "помогите плиз, Заполнить массив случайными числами в интервале [1000;2000) и подсчитать число элементов у которых вторая с конца цифра четная.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.