Ответ: 5.
Если Dat[k] < m, то m:=Dat[k], day:=k, где изначально m:=Dat[1]
Dat[2]<m => 9<7 - нет, значит проверяем следующий элемент
Dat[3]<m => 10<7 - нет,
Dat[4]<m => 8<7 - нет,
Dat[5]<m => 6<7 - да, значит m:=Dat[5]; day:=5;
Dat[6]<m => 7<6 - нет
Dat[7]<m => 6<6 - нет
В итоге выводится переменная day, которая после цикла равна 5
При использовании палитры из 1024 цветов для хранения одной точки необходимо log(2)1024 = 10 бит (2^10 = 1024).
Память для рисунка:
512*256*10 бит = 512*256*10 / 8 байт = 512*256*10 / (8*1024) Кбайт = 160 Кбайт
Выдели изображение и нажми ctrl+c, а затем ctrl+v
//PascalABC.NET 3.1 сборка 1219
begin
var a := ArrRandomInteger(10, -900, 900);
a.Println;
Writeln('Max = ', a.Max);
Writeln('Min = ', a.Min);
end.
Ответ:
Float a, skv, skb v;
Edit1.Text := StrtoInt(a) ;
skv := a * a;
skb := a * a *6;
v := a * a * a;
Label1.Caption := Площадь квадрата = InttoStr(skv) ;
Label2.Caption := Площадь Куба = InttoStr(skb) ;
Label2.Caption := Объём куба = InttoStr(v) ;
Объяснение: