Заменить все чётные элементы массива на их квадраты, а нечётные удвоить

@Ann* · Регистрация: 04.12.2011

Задача на массивы:
"Заменить все чётные элементы массива на их квадраты, а нечётные удвоить."

заранее спасибо)

@mus · 12.12.2011, 21:38

Pascal

uses crt;
var a:array [1..10] of integer;
i:integer;
begin
clrscr;
randomize;
 
{генерируем и выводим новый массив}
for i:=1 to 10 do
 begin
  a[i]:=random(9)+1;
  write(a[i]:3);
 end;
 
writeln;
 
{в цикле проверяем если счетчик i делится на 2 ( признак четности) то либо возводим в степень либо удваиваем}
for i:=1 to 10 do
  begin
    if (i mod 2=0 ) then a[i]:=a[i]*a[i]
    else a[i]:=a[i]*2;
  end;
 
{выводим конечный массив}
for i:=1 to 10 do
write(a[i]:3);
readkey;
 
end.

@Ann* · 12.12.2011, 21:52 **[ТС]**

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

@balbesenok · 23.12.2013, 12:23

Можно сделать? Чтобы сначала рандомные числа выводились, а потом уже в продолжение они удваивались и возводились в квадрат. Что бы было наглядно видно, какие цифры на какие изменились

@mus · 23.12.2013, 21:37

вот в этой части как раз генерируется массив и выводиться на экран

Pascal

{генерируем и выводим новый массив}
for i:=1 to 10 do
 begin
  a[i]:=random(9)+1;
  write(a[i]:3);
 end;

далее по Вашему условию можно создать новый цикл, и поэлементно умножать значение на 2 и так же выводить

Pascal

{умножаем массив на 2 и выводим}
for i:=1 to 10 do
begin
a[i]:=a[i]*2; 
write(a[i]:3);
end;

так же можно и в квадрат возводить, изменить лишь действие с массивом ( либо a[i]*a[i] либо sqr(a[i]); )

PS balbesenok, и по правилам форума для каждой задачи нужно создавать свою тему

@Ann* 0 / 0 / 0 Регистрация: 04.12.2011 Сообщений: 9
		1
	Заменить все чётные элементы массива на их квадраты, а нечётные удвоить 12.12.2011, 21:25. Показов 19918. Ответов 4 Метки нет (Все метки) Задача на массивы: "Заменить все чётные элементы массива на их квадраты, а нечётные удвоить." заранее спасибо) 0

@Ann* 0 / 0 / 0 Регистрация: 04.12.2011 Сообщений: 9
	12.12.2011, 21:52 [ТС]	3
	большое спасибо) 0

@balbesenok 2 / 2 / 0 Регистрация: 22.12.2013 Сообщений: 86
	23.12.2013, 12:23	4
	Можно сделать? Чтобы сначала рандомные числа выводились, а потом уже в продолжение они удваивались и возводились в квадрат. Что бы было наглядно видно, какие цифры на какие изменились 0

Опции темы