var a:array [1..10] of integer;
b,i:integer;
z:real;
begin
randomize;
for i:=1 to 10 do
begin
z:=random;
b:=random(10);
if z>0.5 then a[i]:=b
else a[i]:=-b;
end;
for i:=1 to 10 do
write(' ',a[i]);
end.
если что то не понятно,спрашивай)
Вывести в случайном порядке 10 чисел в промежутке от -5 до 5.
Программа: Pascal ABC
тема: Функция random.
Int sum(int X[]){
int s = 0;
for(int i = 0; i<324; i++){
if (X[i]<0) return s;
s += X[i];
}
return s;
}
300*1200 - количество пикселей
24 - "вес" каждого в битах.
300*1200*24 - общий вес изображения в битах
/8 - перевод в байты
/1024^2 - перевод в мегабайты.
Возведение в степень
Я же уже отвечал тебе:D
смотри фото