Все элементы массива, кратные числу 10, заменить 0.

@Эльвир35 · Регистрация: 18.01.2010

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

Дан массив целых чисел.
а)Все элементы, кратные числу 10, заменить 0.

@Страдалецъ · 18.01.2010, 14:28

Pascal

1 2	for i := 1 to N do if Arr[i] mod 10 = 0 then Arr[i] := 0;

@alexio · 18.01.2010, 14:53

Pascal

var
a:array [1..100] of integer;
n,i:integer;
begin
write ('n=');
readln (n);
for i:=1 to n do
readln (a[i]);
for i:=1 to n do
 begin
   if (a[i] mod 10=0) then a[i]:=0;
   write (a[i],' ');
 end;
readln;
end.

@Эльвир35 0 / 0 / 0 Регистрация: 18.01.2010 Сообщений: 25
		1
	Все элементы массива, кратные числу 10, заменить 0. 18.01.2010, 14:03. Показов 1670. Ответов 2 Метки нет (Все метки) Дан массив целых чисел. а)Все элементы, кратные числу 10, заменить 0. 0

Опции темы

Все элементы массива, кратные числу 10, заменить 0.

Решение