katia777 | Дата: Суббота, 21.04.2012, 20:47 | Сообщение # 1 |
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
| Ребят, помогите пожалуйста!!! Не могу решить задачу... вот условие: Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве чётные числа в порядке убывания их индексов, а так же их количество K. Заранее спасибо!!!
|
|
| |
azma4ka | Дата: Пятница, 15.06.2012, 18:59 | Сообщение # 2 |
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
| uses crt; const n=100; var chet,i,a:integer; arr:array [1..n] of integer; begin write('Введите размерность массива:'); readln(a); randomize; chet:=0; writeln('Исходный массив:'); for i:=1 to a do begin arr[i]:=random(60)-15; write(arr[i]:4); end; writeln; for i:=a downto 1 do if not odd(arr[i]) then begin inc(chet); writeln('Чётный элемент массива под индексом ',i,'=',arr[i]); end; writeln('Всего четных элементов: ',chet); end.
|
|
| |