сервис вопросов и ответовПомогите, пожалуйста, решить задачи на языке программирования в Turbo Pascal. 1) Определить максимальн
5-9 класс|
|
ый элемент квадратной матрицы, расположенный в правой части, ограниченной диагоналями, включая диагональные элементы.
2) Дана таблица с оценками 12 учащихся по девяти предметам. Определить номер предмета, содержащий максимальный средний балл.
Kisa123456789
08 сент. 2013 г., 3:03:38 (10 лет назад)
Rubli
08 сент. 2013 г., 5:44:00 (10 лет назад)
var a: array [1..100,1..100] of integer;
i,j,max,n,m:integer;
Begin
read(n,m);
for i:= 1 to n do
for j:= 1 to m do begin
read(a[i,j]);
if (i=1) and (j=1) then max=a[i,j];
if (j>i) and (a[i,j]>max) then begin
max:=a[i,j];
end;
end;
writeln(max);
End.
Ответить
Другие вопросы из категории
помогите
V=3 целых 4 десятых килобайт,сколько симвл содержит текст ,созданный на компьютере
Учитель на доработку отправляет, а я понять не могу, что не таааааак!
Она написала, что находя процент от числа надо число умножить на процент и найти на сколько увеличивалось.(про мясо) ну сейчас-то правильно??
Читайте также
Помогите, пожалуйста, решить задачу на языке программирования в Turbo Pascal: 1.Дан массив целых чисел, состоящий из 10 элементов.Заполнить его
с клавиатуры. Найти:
-Удвоенную сумму положительных элементов;
-вывести индексы тех элементов, значения которых больше значения предыдущего элемента(начиная со второго).
2.Определить,есть ли 2 пары соседних элементов с одинаковыми знаками.
Помогите решить задачу на языке программирования в Turbo Pascal, плиз Начав тренировки, лыжник в первый день пробежал 10 км. Каждый следующий день он
увеличивал пробег на 10% от пробега предыдущего дня. Определить: а) ежедневное увеличение пробега лыжника за третий, четвёртый, ..десятый день тренировок; б) средний путь лыжника за первые 8 дней тренировок; в) сколько дней он будет бегать менее, чем по 15 км; г) в какой день суммарный пробег за все дни превысит 90 км.
Решить задачи на языке программирования в Turbo Pascal: 1) Дан массив, состоящий из 10 чисел, значения могут быть
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.
Решить задания на языке программирования в Turbo Pascal: 1) Выполните тестирование программы: опишите как будут меняться значения переменных и
что появится на экране в результате выполнения программы. Для переменной S ввести строку - 'аб2в457где245*ж'
Program z2;
uses crt;
var s:string;
k,sum,i,n:integer;
begin
readln(s);
i:=1;
repeat
val(s[i],n,k);
i:=i+2;
sum:=sum+n;
writeln(n);
until i>length(s);
writeln(sum);
readkey;
end.
2) Дано предложение. Удалить из него все буквы с
Помогите пожалуйсто решить прошу очень срочно!!!!
1. Чему равны значения переменных r, a, d?
a:=5; b:=20; c:=-7;
d:=2.5;
r := a+(4*b+c)*d;
a:= a+4;
d:=a*7;
2. В пяти тестовых опросах мальчик получил оценки. Составьте программу, которая определит среднее значение оценок, полученных мальчиком в пяти опросах.
3*. Задача. «Покупка в магазине»
Человек делает в магазине покупки. Определите сколько денег у него останется после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры.
Исходные данные.
a — стоимость перчаток;
b — стоимость портфеля;
d — стоимость галстука;
dengi — количество денег у человека.
Все эти переменные будут вещественного типа.
Результат.
ostatok — количество денег, которое останется у человек (вещественный тип).
Метод решения.
ostatok = dengi – a – b – d
Написать программу, реализующую данную задачу
Помогите пожалуйсто решить очень срочно!!!!!!
Вы находитесь на странице вопроса "Помогите, пожалуйста, решить задачи на языке программирования в Turbo Pascal. 1) Определить максимальн", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.