Сказали что у меня не все пояснения к , нужны пояснения к каждой строчке program kursz5; uses crt; //подключение модуля crt const n=10; const m=10; var //описание переменных i, j,max, min: integer; a: array[1..n,1..m] of integer; //ввод массива begin randomize; //подключение датчика случайных чисел for i: =1 to n do //ввод чисел для переменных массива for j: =1 to m do a[i, j]: =random(100); //ввод случайных чисел max: = a[1,1]; min: = a[1,1]; for i: =1 to n do begin for j: =1 to m do begin if a[i, j] > max then max: = a[i, j]; //вывод max элемента не правильно if a[i, j] < min then min: =a[i, j]; //вывод min элемента write(a[i, j]: 5); end; writeln; end; writeln(); writeln('max=',max,' min=',min); //вывод max и min значений end.

dghakdkc   ·   28.06.2019 19:10
Ответов: 1 Показать ответы 1 Обсудить

Другие вопросы по Информатике

Составить программу по информатике в pascal abc. 1. с клавиатуры одной строковой вводят имя и фамилию. составьте программу, которая: а) определяет, есть ли в определенной строке...
Информатика
01.03.2019 03:30
3 ответ(ов)
Как определить для какого значения x истинно высказывание: ¬((x> 3) → (x> варианты ответов x=1, x=2, x=3, x=4...
Информатика
01.03.2019 04:10
4 ответ(ов)
Вмассиве храниться информация о стоимости товаров. составьте программу, которая определяет стоимость самого дешевого товара и его индекс....
Информатика
01.03.2019 16:10
2 ответ(ов)
Составьте программу, которая формирует массив из шестнадцати целых чисел от -20 до 20 и находит в этом массиве индексы элементов, значения которых кратным трём....
Информатика
01.03.2019 19:20
4 ответ(ов)
Pascal abc. составьте программу, которая рисует деталь в виде кольца внешним радиусом 150 и внутренним радиусом 50, в котором вырезаны отверстия радиусом 30. их центры находятся на...
Информатика
02.03.2019 13:50
2 ответ(ов)
Вкаких случаях невозможно обойтись без вычислительного эксперимента...
Информатика
03.03.2019 23:50
2 ответ(ов)
Разработать блок схему для решения (составить программу вычисления суммы квадратов всех натуральных чисел от 1 до 20)...
Информатика
07.03.2019 21:00
3 ответ(ов)
Задано число в семеричной системе счисления – 631 с основанием системы исчисления 7, переведите его в двоичную систему счисления...
Информатика
09.03.2019 03:11
2 ответ(ов)
Напишіть код для лазаруса по : 1. знайти середнє арифметичне число цілих додатніх чисел менших n. 2. знайти суму цілих додатніх чисел менших 40....
Информатика
03.03.2019 14:49
3 ответ(ов)
1. оператор break. ввести с клавиатуры n чисел.вывести на экран число-количество чисел, котороые можно сложить по порядку, чтобы сумма была меньше 100 и сумму этих чисел.2.оператор...
Информатика
03.03.2019 23:38
Дано натуральное число n. вычислить: s=1-1/2+1/4-1/8++(-1)^n*1/2^n , написать на c#...
Информатика
07.03.2019 10:20
3 ответ(ов)
Рисунок размером 184 на 2048 пикселей закодирована с палитрой 2 цвета. сколько килобайт занимает рисунок в памяти?...
Информатика
09.03.2019 21:11
3 ответ(ов)
Самые популярные сегодня