сервис вопросов и ответовНаписать программу для Паскаля :найдите наименьший элемент квадратной таблицы и замените его нулем
5-9 класс|
|
КотэОрлуша
27 нояб. 2016 г., 10:28:53 (7 лет назад)
Krasavchik17
27 нояб. 2016 г., 11:14:15 (7 лет назад)
var
i, j, min, min_i, min_j: integer;
a: array[1..5, 1..5] of integer;
begin
for i := 1 to 5 do
begin
for j := 1 to 5 do
begin
a[i, j] := random(100) + 1;
write(a[i, j]:4);
end;
writeln;
end;
min := 999;
for i := 1 to 5 do
for j := 1 to 5 do
if min > a[i, j] then
begin
min := a[i, j];
min_i := i;
min_j := j;
end;
a[min_i, min_j] := 0;
writeln('Массив с замененным минимальным элементом');
for i := 1 to 5 do
begin
for j := 1 to 5 do
write(a[i, j]:4);
writeln;
end;
end.
Ответить
Другие вопросы из категории
Пароль от почтового ящика в виде четырехзначного числа Вася зашифровал так : цифры, занимающие чётные разряды (нумирация разрядов ведеся справо налево н
ачиная с нуля) , циклически сдвигаются вправо , а нечетные - влево на количество позиций, равных номеру разряда. Так, например циклический сдвиг цифры 7 на четыри позиции вправо дает нам 1 ( 7-8-9-0-1). Затем из нечетных цифр вычитается , а к четным прибавляется 1. Далее оба шага повторяются еще один раз. В результате шифровки получилось число 3216. Определите пароль.
Составьте программу, которая заполняет массив A[1..10] случайными целыми числами в диапазоне от 1 до 50 и вычисляет среднее арифметическое элементов с
четными значениями элементов массива.
Иван решил найти все письма от адресата,про электронный адрес которого помнит,что тот содержит подстроку petrov?в которой возможны ошибка(но не более
двух). Сколько из нижепредставленных адресов электронной почты подходят Ивану?
petrova_lada
misha_vetrov
veerovich
lida_peshova
Читайте также
Помогите написать программу для Паскаля.
1. Написать программу нахождения произведения n чисел.
1)найти сумму первых k последовательных нечетных чисел. написать программу в паскале. 2)вывести на экран натуральные нечетные числа от 5 до 55.тоже
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
составить на Паскале: 1) программу для вычисления суммы ряда S=1+ 1/2+1/3+1/4+..+1/N. Число N вводится с клавиатуры. 2) одноклеточная
амеба каждые 3 часа делиться на 2 клетки. Определить, сколько амеб будет через 3,6,9,12 и 24 часа.
3) дано натуральное числоо N и действительное число Х. Вычислить сумму ряда sin(x)+sin(2x)+sin(3x)+...+sin(Nx).
4) написать программу для вычисления n-ой степени числа А.
помогите, пожалуйста)
Заполните массив с клавиатуры целыми числами и найдите сумму элементов массива с i1-го по i2-й (i1 и i2 вводить с клавиатуры).
Входные данные:
в первой строке целое число n (0 < n ≤ 100) - кол-во элементов в массиве и целые числа i1 и i2 (0 < i1, i2 ≤ 100). Во второй строке целые числа Х1, Х2,..,Хn разделенные пробелом (числа по модулю не превосходят 32000) - значения элементов массива.
Выходные данные:
сумма элементов массива c номерами от i1 до i2.
(Написать программу на Паскале)
Написать программу для определения максимального числа из данных пяти чисел.
Пользователь вводит пять чисел. Программа выводит ответ: "Максимальное число ... ".
Написать программу в "КуМиРе"
Вы находитесь на странице вопроса "Написать программу для Паскаля :найдите наименьший элемент квадратной таблицы и замените его нулем", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.