2)
const n = 6;var a: array[1..n] of integer; i, s: integer;begin s := 1; for i := 1 to n do begin a[i] := random(5); write(a[i], ' '); if(a[i] > 1) then s := s * a[i]; end; writeln; writeln('Произведение эл. > 1 : ', s);end.
3)
const n = 8;var a: array[1..n] of integer; i, max: integer;begin for i := 1 to n do begin a[i] := 100000 + random(10000); write(a[i], ' '); if(a[i] > max) then max := a[i]; end; writeln; writeln('Наибольшее кол-во населения: ', max);end.
10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?
На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?
Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг
Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч
Сколько часов и минут в -1,3ч и -2,75ч
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.