Маша птичкина любит играть в игру веселый фермер. и вот как-то раз ее ферма нуждалась в покраске . маша - id34790520200108 от maloypipos 08.01.2020 08:00

Question

Информатика: Маша птичкина любит играть в игру веселый фермер. и вот как-то раз ее ферма нуждалась в покраске . маша решила начать с щита и покрасить его почему-ир не в красный а в оранжевый цвет. но для этого надо смешать краски желтого(6 частей) и красного (2 части) цветов. сколько грамм оранжевой краски может получить маша имея в наличии 300 г. желтой и 600 г. красной краски а) 300 б) 400 в) 600 г) 900

maloypipos · Accepted Answer

Вот без наворотов , специфичных для паскаль.абц: program test_arr; type arr = array of byte; elem = record val : byte; ind : byte; end; var i, n : byte; a : arr; min, max : elem; begin write( Введите размер массива: ); readln(n); setLength(a, n); randomize; for i:=0 to n-1 do begin a[i] := random(100); write(a[i], ); end; writeln; min.val:=a[0]; min.ind:=0; max.val:=a[0]; max.ind:=0; for i:=0 to n-1 do begin if a[i] min.val then begin min.val := a[i]; min.ind := i; end; if a[i] max.val then begin...

MOGZ ответил