сервис вопросов и ответовДан двумерный целочисленный массив 4х4 вывести его на экран и выяснить на сколько max элемент заданного массива больше min
10-11 класс|
|
помоги, пожалуйста!
86662368
15 сент. 2016 г., 7:25:47 (7 лет назад)
Kefoyan66
15 сент. 2016 г., 9:52:19 (7 лет назад)
uses crt;
const m=5;
n=5;
var a:array[1..n,1..m] of integer;
i,j,min,max:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
read(a[i,j]);
end;
writeln;
min:=100;
max:=0;
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]<min then min:=a[i,j];
if a[i,j]>max then max:=a[i,j];
end;
write(max-min);
end.
Ответить
Другие вопросы из категории
составить программу, которая вводит с клавиатуры три различных целых числа, каждое из которых по абсолютной величине не превышает 100 (каждое число с но
вой строки), и если среди них есть неотрицательное число, то выводит это число или выводит сумму всех отрицательных введенных чисел в остальных случаях.
Чему равно количество страниц в тексте, если вариант текста в среднем имеет объем 20 килобайт(на каждой странице текста 40 строк по 64 символа в
каждой ).
если можно ответ развернутый
СРОЧНО! Вопрос 10 1)Выполните перевод чисел из 10 системы счисления в 3-ю 7610= Х3
2)Переведите число из 10 системы в 2 -ю систему 8310
Читайте также
Заполнить матрицу из 8 строк и 5 столбцов случайными числами в интервале [10;10] и вывести ее на экран.
Удвоить все элементы матрицы и вывести ее на экран.
Найти минимальные и максимальные элементы в матрице, указать номера.
Просто матрица и удвоенная есть. Теперь нужно найти мин. и макс. значения
program ff;
uses crt;
const n=8;
m= 5;
var a:array [1..n, 1..m] of integer;
i,j:integer;
begin
writeln ('Матрица:');
for i:=1 to 8 do begin
for j:=1 to 5 do begin a[i,j]:=-10+random(21);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to 8 do
for j:=1 to 5 do
a[i,j]:=a[i,j]*2;
writeln ('Удвоенная матрица:');
for i:=1 to 8 do begin
for j:=1 to 5 dowrite(a[i,j]:4);
writeln;
end;
end.
Ввести одномерный массив A , вывести его. Найти произведение
элементов стоящих слева и справа от минимального элемента массива.
Разделить на найденное произведение минимум и максимум. Изменённый
массив вывести.
Вот начало:
program ABC;
const Nmass=100;
var A:array[1..Nmass] of integer;
N,i,k,max,min: byte;
buf:integer;
begin
cls;
//ручной ввод массива
writeLn('Введите число элементов в массиве A');
readLn(N);
writeLn('Вводим элементы массива A:');
for i:=1 to N do
begin
write('A[',i,']=');
readLn(A[i]);
end;
//вывод массива до измененния
writeLn('Исходный массив A:');
for i:=1 to N do
write(A[i]:5);
writeLn;
Даны действительные числа x, y. Вывести на экран то из них, которое меньше.
Даны два символа (латинские буквы). Вывести их на экран в порядке возрастания по алфавиту.
Помогите пожалуйста
Задать двумерный массив А (7, 7) с
помощью датчика случайных чисел и вывести его на экран в виде таблицы. Затем
удвоить все его элементы и снова вывести на экран. Оформите вывод массива в виде
процедуры.
Вы находитесь на странице вопроса "Дан двумерный целочисленный массив 4х4 вывести его на экран и выяснить на сколько max элемент заданного массива больше min", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.