Получите новый массив,каждый элемент которого равен квадрату соответствующего элемента исходного массива

@Киррра · Регистрация: 14.11.2011

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

Сформулируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел.Получите новый массив,каждый элемент которого равен квадрату соответствующего элемента исходного массива.В полученном массиве определите, на сколько максимальный элемент исходного массива отличается от минимального элемента нового массива.Выведите на экран исходные и полученные результаты.

@Ev[G]eN · 28.02.2012, 22:04

Pascal

const
  n = 10;
var
  arrA, arrB: array[1..n] of integer;
  min, max: integer;
  i: byte;
begin
  randomize;
  min:=1; max:=1;
  writeln('Массив А: ');
  for i:=1 to n do
  begin
    arrA[i]:=random(20);
    write(arrA[i], ' ');
    if arrA[i] > arrA[max] then max:=i;
  end;
  writeln;
  writeln('Максимальный: ', arrA[max]);
  writeln('Массив В: ');
  for i:=1 to n do
  begin
    arrB[i]:=sqr(arrA[i]);
    write(arrB[i], ' ');
    if arrB[i] < arrB[min] then min:=i;
  end;
  writeln;
  writeln('Минимальный: ', arrB[min]);
  writeln('Максимальный отличается от минимального на ', abs(arrA[max]-arrB[min]), ' раз!');
end.

@Киррра 0 / 0 / 0 Регистрация: 14.11.2011 Сообщений: 19
		1
	Получите новый массив,каждый элемент которого равен квадрату соответствующего элемента исходного массива 28.02.2012, 20:52. Показов 3664. Ответов 1 Метки нет (Все метки) Сформулируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел.Получите новый массив,каждый элемент которого равен квадрату соответствующего элемента исходного массива.В полученном массиве определите, на сколько максимальный элемент исходного массива отличается от минимального элемента нового массива.Выведите на экран исходные и полученные результаты. 0

Опции темы

Получите новый массив,каждый элемент которого равен квадрату соответствующего элемента исходного массива

Решение