Четверг, 28.03.2024, 12:03
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ignorer, PASCAL26, atvrider  
Форум » Решение задач по информатике » Другие задания » Срочно!!! нужна помощь!!! задача по Паскалю
Срочно!!! нужна помощь!!! задача по Паскалю
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.
 
Форум » Решение задач по информатике » Другие задания » Срочно!!! нужна помощь!!! задача по Паскалю
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024