Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Помогите составить программу
Условие задачи: В одномерном массиве X i (i = 1…5) найти количество элементов с нечетными индексами, оформить в виде процедуры. В основной программе организовать ввод и вывод массива, и вывод количества.
Помогите, пожалуйста.

Код
const N = 5;

procedure CountOdddIndex(var Count : integer);
var i : integer;
begin
Count := (N+1) div 2;
end;

var
A :array[1..N] of integer;
Cnt : integer;
begin
CountOdddIndex( cnt );
WriteLn('В массиве ровно ', cnt, ' элемента(-ов) с нечётными индексами.')
end.

Я сделал все кроме ввода и выводы массива, помогите доработать, пожалуйста!


ййй
1 | Автор: LehaGrishin | 2014-12-28, 22:53 | Изменено: LehaGrishin - Вс, 2014-12-28, 22:53   |  Репутация: [ + 0 ]


ййй
1 | Автор: LehaGrishin | 2014-12-28, 22:53 | Изменено: LehaGrishin - Вс, 2014-12-28, 22:53   |  Репутация: [ + 0 ]
Врядли это ты сделал, раз не можешь сделать ввод/вывод

const
N = 5;
var
myArray: array [1..N] of integer;
i: byte;
begin
for i:=1 to N do
read(myArray);
for i:=1 to N do
write(myArray
, ' ');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2015-01-01, 16:48   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: