Регистрация
shok0
04.10.2021 20:00
Информатика
Есть ответ 👍

Определите какие из файлов сжимаются лучше всего . background
flower
letter
flower.prg
background.jpg
letter.doc

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

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

Anna19072003
Anna19072003
4,6(74 оценок)

jpg

Объяснение:

Пакмен007
Пакмен007
4,4(78 оценок)
Const  n = 5; var  a: array[1..n] of integer; i,max1,max2,k,k1: integer; begin   for i: =1 to n do readln(a[i]); max1: =-100000000000; max2: =-100000000000; for i: = 1 to n do  if a[i]> max1 then  begin   max1: = a[i]; k: =i; end; for i: = 1 to n do  if (a[i]> max2) and (a[i]< max1) then begin   max2: = a[i]; k1: =i; end; writeln('a[',k,']=', max1,'   a[',k1,']=',max2); end.

Популярно: Информатика