Дается последовательность из n чисел. найдите максимальное произведение среди всех пар этих чисел. первая строка входного файла содержит целое число n(1< =n< =1000). в следующей строке n целых чисел, каждое из которых по модулю меньше или равно 1000.

211

487

Посмотреть ответы 2

Ответы на вопрос:

Shkolяr

Информатика

4,5(95 оценок)

Var ar: array of integer; max,i,n,j: integer; begin; max: =-2147483648; //нижняя граница integer writeln('введите размерность массива: '); //массив всегда приятнее readln(n); setlength(ar,n+1); //задали размерность динамического массива for i: =1 to n do begin; write('введите ',i, ' элемент массива: '); readln(ar[i]); end; for i: =1 to n do for j: =1 to n do if max< ar[i]*ar[j] then max: =ar[i]*ar[j]; writeln('result: ',max); end.

Skotonyaka

Информатика

4,5(8 оценок)

// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin var a: =readlnstring('ip=').towords('.'); if a.length< > 4 then writeln('адрес - это четыре числа, разделенные точками') else begin var n: integer; foreach var c in a do begin if not trystrtoint(c,n) then begin writeln(c,'- не целое число'); exit end else if n> 255 then begin writeln(c,' превышает 255'); exit end; end; writeln('ip-адрес корректен') end end. примеры ip= 128.16.35.a4 a4- не целое число ip= 240.127.56.340 340 превышает 255 ip= 34.56.42,5 адрес - это четыре числа, разделенные точками ip= 128.0.0.255 ip-адрес корректен