Все элементы массива разделить на первый элемент

@c4ntf1y · Регистрация: 01.11.2012

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

Дан массив. Все его элементы: а) разделить на первый элемент б) увеличить на число b.

Kodzaev · 27.02.2013, 18:48

Pascal

Const
  n=10;
Var
  x: Array[1..n] of Integer;
  i,b: Integer;
BEGIN
Writeln('Массив:');
For i:=1 to n do
begin
  x[i]:=Random(20);
  Write(x[i],' ');
end;
Writeln;
Write('Введите b: ');
Readln(b);
Writeln('ОТВЕТЫ:');
Write('a) ');
For i:=1 to n do
Write(x[i]/x[1]:5:2);
Writeln;
Write('b) ');
For i:=1 to n do
Write(x[i]+b,' ');
END.

@c4ntf1y 0 / 0 / 0 Регистрация: 01.11.2012 Сообщений: 120
		1
	Все элементы массива разделить на первый элемент 27.02.2013, 07:05. Показов 2121. Ответов 1 Метки нет (Все метки) Дан массив. Все его элементы: а) разделить на первый элемент б) увеличить на число b. 0

	27.02.2013, 18:48

Все элементы массива разделить на первый элемент

Решение