Заполните двумерный массив размерностью 3*2 случайными числами в диапазоне от -30 до 50. Определите квадрат минимального элемента.
5-9 класс
|
program sss;
var i,j,n:integer;
a:array[1..2,1..3] of integer;
begin
n := 51;
for i:=1 to 2 do
begin
for j:=1 to 3 do
begin
a[i,j] := random(-30,50);
write(a[i,j],' ');
if a[i,j] < n then n := a[i,j];
end;
writeln;
end;
write(n*n);
end.
Другие вопросы из категории
После каждой двойки вставить число 100
Установите соответствие...
Библиотека Смешанная(система)
Болото
Самолёт
Вулкан техническая система
Оркестр природная система
Степь
Система счисления
1) 32 бит 2) 27 байт 3) 256 бит 4) 320 бит
Читайте также
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
и количество элементов с нечетными значениями.
б) Составьте программу, которая заполняет массив b[1..8] случайными целыми числами в диапазоне от 1 до 10 и находит произведение элементов с нечетными значениями и количество элементов с четными значениями.
элементов с нечётными индексами
2)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 10,находит максимальный элемент массива,а затем вычисляет,сколько раз он встречается в массиве
Программа задумывает случайное число в диапазоне от 0 до 99. После каждой попытки играющего прога выводит сообщение "больше", "меньше", "угадано". Дается 10 попыток. Программа завершается, если дан правильный ответ или попытки закончились.
значениями. №2 Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 до 10 и вычисляет среднее арифметическое элементов массива. №3 Такое же как и №2, только ...элементов массива с четными значениями.