Сформировать новый массив B того же размерами, элементы которого определяются по правилу

@kunkka1 · Регистрация: 24.09.2013

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

Тема: Работа с несколькими массивами
Дан массив A размера N. Сформировать новый массив B того же размерами, элементы которого определяются следующим образом:
2 • AK, если AK <5,
BK =
AK / 2 в противном случае.

@Cyborg Drone · 25.09.2013, 06:39

Pascal

program Arr_ab;
 
var a, b: array [1..12] of real;
    k, n: integer;
 
begin
  randomize;
  repeat
    write('Enter N, 1..12: ');
    readln(n);
  until (n >= 1) and (n <= 12);
  writeln;
  writeln('Source array:');
  for k := 1 to n do
    begin
      a[k] := random(1000) / 100;
      write(a[k]:5:2, ' ')
    end;
  writeln;
  writeln;
  writeln('Destination array:');
  for k := 1 to n do
    begin
      if a[k] < 5 then b[k] := 2 * a[k]
                  else b[k] := a[k] / 2;
      write(b[k]:6:3);
    end;
  writeln;
  readln
end.

@kunkka1 4 / 4 / 0 Регистрация: 24.09.2013 Сообщений: 147
		1
	Сформировать новый массив B того же размерами, элементы которого определяются по правилу 25.09.2013, 00:19. Показов 2756. Ответов 1 Метки нет (Все метки) Тема: Работа с несколькими массивами Дан массив A размера N. Сформировать новый массив B того же размерами, элементы которого определяются следующим образом: 2 • AK, если AK <5, BK = AK / 2 в противном случае. 0

	25.09.2013, 06:39

Опции темы

Сформировать новый массив B того же размерами, элементы которого определяются по правилу

Решение