Напечатать элементы массива, стоящие на четных местах

@OmgMorty · Регистрация: 03.02.2012

Author24 — интернет-сервис помощи студентам

11.39. Дан массив. Напечатать:
а) второй, четвертый и т.д. элементы;

@3a9Ic · 17.04.2012, 20:20

Pascal

Uses CRT;
var a:array[1..99] of integer;
    i,n:integer;
begin
     Clrscr;
     Write('Ââåäèòå êîëè÷åñòâî ýë. â ìàññèâå:');Readln(n);
     for i:=1 to n do
     a[i]:=Random(51);
     for i:=1 to n do write(' a[',i,']=',a[i]);
     writeln('');
     for i:=1 to n do
     if (i mod 2=0) then write(' a[',i,']=',a[i]);
end.

@OmgMorty 3 / 3 / 0 Регистрация: 03.02.2012 Сообщений: 45
		1
	Напечатать элементы массива, стоящие на четных местах 16.04.2012, 20:59. Показов 2367. Ответов 1 Метки нет (Все метки) 11.39. Дан массив. Напечатать: а) второй, четвертый и т.д. элементы; 0

	17.04.2012, 20:20

Опции темы

Напечатать элементы массива, стоящие на четных местах

Решение