рассчитайте объём видеопамяти необходимой для хранения графического изображения занимающего весь экран монитора с разрешением 1400х1050 количесство цветов 65536 сделать как задача
Var a:array[1..100000] of longint;i,n,max,min:longint; begin Assign(input,'input.txt');Reset(input); Assign(output,'output.txt');Rewrite(output); readln(n); min:=maxint; max:=0; for i:= 1 to n do begin readln(a[i]); if a[i] mod 2 = 0 then begin if a[i] > max then max:=a[i]; if a[i] < min then min:=a[i]; end; end; Writeln('min = ',min); Writeln('max = ',max); Close(input);Close(Output); end. Например вводишь в файл input.txt 5 1 2 3 4 5 он в файле output.txt вывидет min = 2 max = 4
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
end.
begin
Assign(input,'input.txt');Reset(input);
Assign(output,'output.txt');Rewrite(output);
readln(n);
min:=maxint;
max:=0;
for i:= 1 to n do begin
readln(a[i]);
if a[i] mod 2 = 0 then begin
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
end;
end;
Writeln('min = ',min);
Writeln('max = ',max);
Close(input);Close(Output);
end.
Например
вводишь в файл input.txt
5
1
2
3
4
5
он в файле output.txt вывидет
min = 2
max = 4