Массив. Найти нулевые жлементы, индексы четных элементов

@Аниса · Регистрация: 06.08.2015

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

Программа, которая формирует массив из 16 случайных целых чисел от -20 до 20 и
а)находит элементы с нулевыми значениями;
б) находит индексы чётных элементов;
в) определяет, есть ли в этом массиве хотя бы одно число, кратное трем...

помогите пожалуйста, а то я в этом ничего не понимаю(((

@klast · 22.12.2011, 09:55

Pascal

var
a:array[1..1000] of integer;
i:integer;
begin
for i:=1 to 16 do a[i]:=Random(40)-20;
write('Âàø ìàññèâ: ');for i:=1 to 16 do write(a[i],' ');
writeln('');
write('Ýë-òû ñ íåíóëåâûì çíà÷åíèåì: ');for i:=1 to 16 do if a[i]<>0 then write(a[i],' ');
writeln('');
write('Èíäåêñû ÷åòíûõ ýë-òîâ: ');for i:=1 to 16 do if a[i] mod 2=0 then write(i,' ');
writeln('');
write('×èñëà êðàòíûå òðåì: ');for i:=1 to 16 do if a[i] mod 3=0 then write(a[i],' ');
writeln('');
end.

@Аниса 0 / 0 / 0 Регистрация: 06.08.2015 Сообщений: 1
		1
	Массив. Найти нулевые жлементы, индексы четных элементов 22.12.2011, 02:11. Показов 1845. Ответов 1 Метки нет (Все метки) Программа, которая формирует массив из 16 случайных целых чисел от -20 до 20 и а)находит элементы с нулевыми значениями; б) находит индексы чётных элементов; в) определяет, есть ли в этом массиве хотя бы одно число, кратное трем... помогите пожалуйста, а то я в этом ничего не понимаю((( 0

	22.12.2011, 09:55

Массив. Найти нулевые жлементы, индексы четных элементов

Решение