Дана матрица Z(7,3) (элементы ее выбрать самостоятельно). Сформировать массив С, в который войдут минимальные элементы каждой строки матрицы Z. Напечатать
10-11 класс
|
матрицу и полученный массив.
var i, j, min: integer;
z: array[1..7, 1..3] of integer;
c: array[1..7] of integer;
begin
for i := 1 to 7 do begin
min := 32767;
for j := 1 to 3 do begin
z[i, j] := random(20);
write(z[i, j]:3);
if(min > z[i, j]) then min := z[i, j];
end;
c[i] := min;
writeln;
end;
write(#10, 'Сформированный массив С:');
for i := 1 to 7 do write(c[i]:3);
end.
Другие вопросы из категории
Пример: Исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 максимальные a[4]=10, a[7]=8
таблица
характеристика СD DVD
различие
количество кодовых комбинаций символов алфавита, если разрядность
двоичного кода равна 7:
составьте программу для вычисления значения функции при любом x:y=2+3x/2-4x
Читайте также
2)дана матрица размерами N * N. Поменять местами столбец с максимальным и столбец содержащий минимальное количество нулевых элементов. Использовать три процедуры (заполнение, смена, вывод).
1–12, введенное с клавиатуры (1 — январь, 2 — февраль и т. д.). Вывести название соответствующего времени года («зима», «весна», «лето», «осень»).
2, Напишите программу, реализующую следующие вычисления. Дана матрица размера M x N (числа вводятся с клавиатуры). Для каждого столбца матрицы найти произведение его элементов. Полученные значения вывести в текстовый файл.
3, Напишите программу с использованием функции CircleS(R) вещественного типа, находящей площадь круга радиуса R (R — вещественное). С помощью этой функции найти площади трех кругов с данными радиусами. Площадь круга радиуса R вычисляется по формуле S = πR2.
4, Напишите программу, реализующую следующие вычисления. Дано целое число N (1≤N≤26), введенное с клавиатуры. Вывести N первых прописных (то есть заглавных) букв латинского алфавита.