Преобразовать одномерный массив, увеличив каждый элемент массива в 2 раза.

@hoochie · Регистрация: 16.12.2009

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

Помогите пожалуйста решить!СПАСИБО!
Преобразовать одномерный массив, увеличив каждый элемент массива в 2 раза.

@Snoopy · 04.01.2010, 19:23

Pascal

1 2	for i:=1 to n do a[i]:=a[i]*2;

@hoochie · 04.01.2010, 20:09 **[ТС]**

Конечно спасибо, но я хотел бы полную программу....
Заранее спасибо!

@Inadequate · 04.01.2010, 20:14

Pascal

uses
  crt;
const
  n=10;
var
  a:array[1..n]of integer;
  i,j,temp:integer;
begin
  clrscr;
  {задаем выводим считаем}
  writeln('Исходный массив:');
  write('[ ');
  for i:=1 to n do
  begin
    a[i]:=random(8)-4;
    write(a[i],' ')
  end;
  writeln(']');
  {умножаем}
  for i:=1 to n do
    a[i]:=a[i]*2;
  {выводим массив}
  writeln('Полученный массив:');
  write('[ ');
  for i:=1 to n do
    write(a[i],' ');
  writeln(']');
end.

@hoochie 0 / 0 / 1 Регистрация: 16.12.2009 Сообщений: 116
		1
	Преобразовать одномерный массив, увеличив каждый элемент массива в 2 раза. 04.01.2010, 19:17. Показов 1219. Ответов 3 Метки нет (Все метки) Помогите пожалуйста решить!СПАСИБО! Преобразовать одномерный массив, увеличив каждый элемент массива в 2 раза. 0

@hoochie 0 / 0 / 1 Регистрация: 16.12.2009 Сообщений: 116
	04.01.2010, 20:09 [ТС]	3
	Конечно спасибо, но я хотел бы полную программу.... Заранее спасибо! 0

	04.01.2010, 20:14