targovich
?>

Чем вы можете объяснить разнообразие форматов графических файлов !

Информатика

Ответы

taa19707470
Тем что существуют разные программы выполняющий разный тип и для каждый из них нужно, что то свое
ВайсманКреденс357
Const n=4; { любое число n от 1 до 100000} var a: array [1..n] of integer;       b,min,max, s: integer;       proizvedenie: real; beginwriteln('введите n чисел');   for b: =1 to n do  read (a[b]);   for b: =1 to n do      write(a[b],' ');   min: =a[1];   max: =0;   for b: =1 to n do  begin  if a[b]> max then max: =a[b];   if a[b]< min then min: =a[b];   end;   proizvedenie: =max-min;   writeln;   writeln('minimum ',min,' ','maximum ',max,'   proizvedenie=   ',proizvedenie); readln; end.
kiparistop
Program asd; var a: array[1..100000] of integer; b,c,i,n,imax,imin: integer; f1,f2: text; begin  assign(f1,'input.txt'); assign(f2,'output.txt'); reset(f1); readln(f1,n); for i: =1 to n do begin read(f1,b); a[i]: =b; end; imax: =1; imin: =1; for i: =2 to n do if a[i]> a[imax] then imax: =i; for i: =2 to n do if a[i]< a[imin] then imin: =i; rewrite(f2); c: =a[imax]*a[imin]; write(f2,c); close(f1); close(f2); end.в папке с прогой надо создать два txt файла input, output.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Чем вы можете объяснить разнообразие форматов графических файлов !
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

M10M11M12
Aleksei
xeniagolovitinskaya4546
Горностаева831
Alekseevna1064
Kuznetsova702
arnika-ooo1
Сергеевич1396
иванович Диденко1524
dmitrievanata83538
mzia-mzia-60682
gbnn90
artbogema2016
ganorussia
Korneeva1856