Все элементы массива, значения которых кратны 5, увеличить в 2 раза

@net_haker1 · Регистрация: 02.10.2013

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

N=12 Все элементы массива, значения которых кратны 5, увеличить в 2 раза. Массив вывести

@grikukan · 22.12.2013, 11:31

Pascal

const N=12;
var c:integer;
a:array[1..N] of integer;
begin
for c:=1 to N do begin
read(a[c]);
if (a[c] mod 5=0) then a[c]:=a[c]*2
end;
writeln;
writeln;
for c:=1 to N do begin
writeln(a[c]);
end;
end.

@net_haker1 0 / 0 / 2 Регистрация: 02.10.2013 Сообщений: 155
		1
	Все элементы массива, значения которых кратны 5, увеличить в 2 раза 21.12.2013, 23:41. Показов 1865. Ответов 1 Метки нет (Все метки) N=12 Все элементы массива, значения которых кратны 5, увеличить в 2 раза. Массив вывести 0

	22.12.2013, 11:31

Все элементы массива, значения которых кратны 5, увеличить в 2 раза

Решение