Дан массив A(n). Создать новый массив , элементами которого являются произведения A(i) на максимальный элемент массива A

@V I K T O R I Y A · Регистрация: 24.04.2009

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

@John_Pa9JIbHuK · 28.04.2009, 00:34

Pascal

program sdf;
uses crt;
var
a:array [1..10] of integer;
b:array [1..10] of integer;
i,max:integer;
begin
clrscr;
randomize;
for i:=1 to 10 do
  begin
  a[i]:=random(10);
  write(a[i]:4);
  end;
  writeln;
     max:=a[1];
     for i:=1 to 10 do
     begin
     if a[i]>max then max:=a[i];
     end;
       for i:=1 to 10 do
         begin
         b[i]:=a[i]*max;
         write(b[i]:4);
         end;
readln;
end.

@V I K T O R I Y A 0 / 0 / 0 Регистрация: 24.04.2009 Сообщений: 6
		1
	Дан массив A(n). Создать новый массив , элементами которого являются произведения A(i) на максимальный элемент массива A 27.04.2009, 21:10. Показов 2896. Ответов 1 Метки нет (Все метки) Дан массив A(n). Создать новый массив , элементами которого являются произведения A(i) на максимальный элемент массива A 0

	28.04.2009, 00:34

Дан массив A(n). Создать новый массив , элементами которого являются произведения A(i) на максимальный элемент массива A

Решение