ПОМОГИТЕ ПОЖАЛУЙСТА В ПАСКАЛЕ
сформулируйте массив содержащий 15 элементов, с помощью датчика случайных чисел. получите новый массив, каждый элемент которого равен квадрату соответствующего элемента исходного массива. в полученном массиве определите насколько максимальный элемент исходного массива отличается от минимального элемента нового массива. выведите на экран исходные и полученные результаты

1

Ответы и объяснения

2013-12-13T18:55:48+04:00
Program zbs;
var raz.min,max,i:integer
begin
randomize;
for i=1 to 15 do begin
a[i]:=random(10)
end;
for i=1 to 15 do begin
if max<a[i] then max:=a[i]
end;
for i=1 to 15 do begin
write(a[i]:3);
end;
writeln;
for i=1 to 15 do begin
a[i]:=sqr(a[i]);
end;
for i=1 to 15 do begin
if min>a[i] then min:=a[i]
end;
for i=1 to 15 do begin
write(a[i]:3);
end;
raz:=min-max;
writeln;
writeln('разность минимального элемента нового массива 
максимального старого=',raz:4);
end.