Var a:array[1..100] of integer;
i,n,max,min:integer;
begin
writeln('Skolko elementov');
readln(n);
for i:=1 to n do begin write('a[',i,']='); read(a[i]); end;
max:=a[1]; min:=a[1];
for i:=1 to n do if a[i]>max then max:=a[i];
for i:=1 to n do if a[i]<min then min:=a[i];
writeln('Max - Min =' ,max-min);
<span>end.</span>

0 0

4 года назад

Опредилите количество точек в изоьражении, если в палитре 512 цветов , а информационный объём 3600 байт

pakoroband [42]

512 цветов это 2^9 т.е глубина цвета 9 бит

переведём объем в биты
3600*8=28800 бит

определим количество точек
28800/9= 3200 точек

0 0

3 года назад

С клавиатуры вводятся 4 положительных числа - длины отрезков. вывести на экран построчно сочетания длин сторон, из которых можно

Shkuravedrovna

Смотрите документ, там текст программы. Картинки -- демонстрация работы.

0 0

3 года назад

Помогите пожалуйста срочно с информатикой!

виктор1989

Ответ 0.. Тут все просто

0 0

1 год назад