сервис вопросов и ответов44 балла
10-11 класс|
|
Помогите решить две задачки (Паскаль)
Задание 1
Создать одномерный массив А, состоящий из сумм столбцов матрицы В(8,5). Определить в созданном массиве минимальный элемент и его местоположение, а также произведение всех элементов.
Задание 2
В двумерном массиве G(7,5) поменять минимальный элемент 2 строки и максимальный элемент 5 столбца. В полученной матрице вычислить значение произведения элементов главной диагонали. Заменить значение третьего элемента в первой строке на значение произведения.
Saper228
21 авг. 2013 г., 0:07:37 (10 лет назад)
Ug222
21 авг. 2013 г., 1:55:03 (10 лет назад)
const
n = 7;
m = 5;
var
a: array[1..n, 1..m] of integer;
min2_j, max5_i, i, j, p: integer;
c: char;
begin
min2_j := 1;
max5_i := 1;
for i := 1 to n do
begin
writeln;
for j := 1 to m do
begin
a[i, j] := random(50);
write(a[i, j]:n);
if(i = 2) and (a[2, min2_j] > a[i, j]) then
min2_j := j;
if (j = 5) and (a[max5_i, 5] < a[i, j]) then
max5_i := i;
end;
end;
i := a[2, min2_j];
a[2, min2_j] := a[max5_i, 5];
a[max5_i, 5] := i;
writeln;
p := 1;
for i := 1 to n do
begin
writeln;
for j := 1 to m do
begin
write(a[i, j]:n);
if(i = j) then
p := p * a[i, j];
end;
end;
a[1, 3] := p;
writeln;
for i := 1 to n do
begin
writeln;
for j := 1 to m do
write(a[i, j]:n);
end;
end.
Ответить
Другие вопросы из категории
ребят, помогите
Набор команд, который должен выполнить компьютер для решения задачи (9 букв)
. В алфавите некоторого языка всего два знака-буквы (“0” и “1”). Каждое слово этого языка состоит обязательно из семи букв. Какое максимальное число слов
возможно в этом языке:
1) 256;
2) 16;
3) 32;
4) 64;
5) 128.
Читайте также
В файле записаны данные о результатах сдачи экзамена. Каждая строка содержит фамилию, имя и количество баллов, разделенные пробелами:
<Фамилия> <Имя> <Количество баллов>
Вывести в другой файл фамилии и имена тех учеников, которые получили больше 80 баллов. ( Программу написать на Паскале)
На вход подается строка имеющая вид: ФАМИЛИЯ ИМЯ БАЛЛ1 БАЛЛ 2 ФАМИЛИЯ ИМЯ... Где балл1 и балл2 - баллы предметов. Надо написать программу, показывающую
имена и фамилии ненабравших мин. балла - 30.
ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧУ!! информационный объём дискеты 1,44 Мбайта. Достаточно ли одной дискеты,чтобы записать на неё 5
файлов,информационный объём каждого из которых примерно равен 300 Кбайт. Почему? Информационный объём файла примерно 1 000 000 байт. Архиватор сжимает его на 300%. Поместится ли оно на одну дискету, информационный объём которой 1,44 Мбайт? Почему? Выполнить вычисление 1101111011,01(2) - 101000010,0111(2)
Ребят,привет,помогите кто чем может.Как вычислить средний бал в эксель,если есть баллы за текущие тесты,экзамен теория,экзамен практика.Я поняла,что
нужно использовать кнопку СРЗНАЧ,но ведь там в баллах и выходит,а "средний бал" помоему должен вычисляться в оценке.
Дан целочисленный массив из 30 элементов, которые могут принимать значения от 0 до 100 – баллы учащихся за итоговый тест по информатике. Напишите програ
мму, которая подсчитывает средний балл класса и выводит на экран номера учеников, набравших баллов больше среднего.
Вы находитесь на странице вопроса "44 балла", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.