Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon Информатика

Информатика - вопрос №493126

Дан массив из 16 целых чисел, случайно заданных в диапазоне от 0 до 70.получить max(a1*a16,a2*a15,...,a8*a9)

Dina
12.12.12
Учеба и наука / Информатика
1 ответ
учебное сотрудничество

Ответы

Валентина

program pr;

uses crt; 

var a:array[1..16] of integer;

i, max:integer;

begin

randomize;

for i:=1 to 16 do

a[i]:=random(70)+1;

max:=a[1]*a[16]; 

for i:=1 to 8 do 

if  a[i]*a[17-i]>=max then max:= a[i]*a[17-i];

writeln('max=',max);

readln

end.

Буду благодарна, если отметите 
12.12.12

Еva
от 100 p.
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее