Последовательность. Если на четном месте находится элемент, кратный 3, заменить этот элемент на его квадрат

@Кристюша5 · Регистрация: 22.04.2012

дана последовательность натуральных чисел.Если на четном месте находится элемент,кратный 3,то заменить этот элемент на его квадрат.Полученную последовательность вывести.

valeriikozlov · 30.04.2012, 18:31

Pascal

var a: array[1..10] of integer; i: byte;
begin
randomize;
writeln('Исходный массив:');   
for i:=1 to 10 do
begin
a[i]:=random(10);   
write(a[i],' ');
end;
writeln('Полученный массив:');  
for i:=1 to 10 do
begin
  if (i mod 2=0) and (a[i] mod 3=0) then a[i]:=a[i]*a[i];
  write(a[i],' ');  
end;
end.

@Кристюша5 · 30.04.2012, 19:51 **[ТС]**

спасиибо большое**

@Кристюша5 0 / 0 / 0 Регистрация: 22.04.2012 Сообщений: 26
		1
	Последовательность. Если на четном месте находится элемент, кратный 3, заменить этот элемент на его квадрат 30.04.2012, 17:44. Просмотров 1670. Ответов 2 Метки нет (Все метки) дана последовательность натуральных чисел.Если на четном месте находится элемент,кратный 3,то заменить этот элемент на его квадрат.Полученную последовательность вывести. 0

@Кристюша5 0 / 0 / 0 Регистрация: 22.04.2012 Сообщений: 26
	30.04.2012, 19:51 [ТС]	3
	спасиибо большое** 0

Опции темы

Последовательность. Если на четном месте находится элемент, кратный 3, заменить этот элемент на его квадрат

Решение