<span>// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017</span>
begin
var t:=Arr(-2,1,3,-4,2,0,1,-3,5); t.Println;
Sort(t); t.Println;
Println('Прозведение:',t[0]*t[1]*t[2]);
end.
1. Тип Byte так как 32<256
2. Радиус Земли в метрах около 6400000 вполне подойдет integer
3. Масса человека в граммах - <span>integer
4. </span>Температура воздуха в градусах Цельсия в любой из дней в году - integer
5. Количество праздничных дней в году - Byte
6. произведение всех чисел от 1 до 100 - word
7. сумма двух произвольных чисел из отрезка от -200 до 200.
- integer
Номера 1 и 4.
Маски имеют вид 255.255.255.0, значит под хост выделен последний байт маски, а первые три байта - под адрес сети.
Первые три байта у 1 и 4 IP-адресов одинаковые, значит адрес сети тоже один.
на c++
void main(){
int a[10];
int i;
randomize();
printf(""\n Исходный масив ")
for (i=0; i<10; i++) {
a[i]=random(100);
printf("%d ", a[i]); }
printf(""\n Элементы больше 25 ")
for (i=0; i<10; i++)
if(a[i]>25) printf("%d ", a[i]);
getch();
}