сервис вопросов и ответовпомогите написать программы)
5-9 класс|
|
1.дан массив 10 на 10,подсчитать сумму элементов расположенных на главной диагонали.
2.дан массив 10 на 10,найти наименьший элемент массива.
спасибо за помощь)
Ромашка13
06 июня 2014 г., 11:31:17 (9 лет назад)
Ninajk
06 июня 2014 г., 14:05:35 (9 лет назад)
Паскаль
1)Program abc; Uses crt;
var S:integer; a:array [1..10,1..10];
begin
For i:=1 to 10 do
For j:=1 to 10 do
read(a[i,j]);
writeln;
begin
S:=0;
For i:=1 to 10 do
For j:=1 to 10 do
if i=j then S:=S+a[i,j];
write('Сумма равна',S)
end.
2)
Program abc; Uses crt;
var min:integer; a:array [1..10,1..10];
begin
For i:=1 to 10 do
For j:=1 to 10 do
read(a[i,j]);
writeln;
min:=a[1,1];
For i:=1 to 10 do
For j:=1 to 10 do
if a[i,j]<min then min:=a[i,j];
writeln('Минимальный элемент равен',min);
end.
Ответить
Другие вопросы из категории
помогите!! SOS SOS SOS!!!!
Написать алгоритм "Как сварить борщ"
Например:Достать кастрюлю и т.д...
Разработайте программу,которая определяет сумму предоставленной покупателю скидки (В ПАСКАЛЕ). Размер
предоставленной скидки зависит от стоимости приобретенных в магазине товаров.Если общая стоимость покупки меньше 201 грн,скидку не предоставляют. Если покупатель приобретет товары на сумму от 201грн до 501 грн,то он получит скидку х%. Если же общая стоимость покупок превышает 501 грн,его скидка будет у%.
в лыжной гонке участвуют 240 спортсменов. Специальное устройство регистрирует прохождение каждым из участников промежуточного финиша, записывая
номер участника цепочкой из нулей и единиц минимальной длины, одинаковой для каждого спортсмена. Каков будет информационный объём сообщения, записанного устройством, после того как промежуточный финиш пройдет половины лыжников?
СРОЧНО!!!!!!!!!!!!!!!!!
С помощью азбуки Морзе можно кодировать
символ для сообщений по радиосвязи, используя комбинацию точек и тире. Определите
количество различных символов, которых можно закодировать, используя код азбуки
Морзе длиной не менее трёх и не более пяти сигналов (точек и тире)? В ответе
укажите только число.
Попробуйте подсчитать, какое количество компьютеров будет заражено
почтовым вирусом после его четвертой саморассылки, если в адресных
книгах всех пользователей содержится по 10 адресов электронной почты.
Читайте также
Помогите написать программу для Паскаля.
1. Написать программу нахождения произведения n чисел.
помогите пожалуйста..очень надо....что нибудь из этих задач..1)написать программу которая поменяет местами первую и последнюю букву в слове. 2)написать
программу которая вставит между буквами веденного слова пробелы 3)написать программу вывода на экран деление двух чисел
Паскаль ABC 1.Написать программу рисующую вертикальную цепочку из 7 кругов 2.Написать программу рисующую цепочку из 5 кругов
расположденных по диагонали
3.Написать программу рисующую горизонтальную цепочку из 12 кругов,каждый круг должен на половину закрывать предыдущий
Помогите,а то сижу с паскалем уже час с лишним и все никак не получается..
Заранее спасибо)
Помогите плиз срочно 1)Написать программу,которая спрашивает"Который час?" и,в зависимости от введенного времени,выводит приветствие:"Доброе
утро","Добрый день","Добрый вечер", "Спокойной ночи". 2)Написать программу,которая определяет,принадлежит ли точка с координатами (x,y)Заштрихованной области,ограниченной точками(x1,y1)(x2,y2).
Пожалуйста помогите решить желательно все или хотя бы одну (P.S. программа для программы Turbo Pascal) 1.Написать программу, которая предлагает
ввести 3 значное число и находит сумму его цифр.
2. Написать программу, которая предлагает ввести 3 значное число и меняет порядок цифр наоборот. (123- 321)
3.Написать программу, которая предлагает ввести три числа с клавиатуры, находит их сумму, произведение и среднее арифметическое.
Вы находитесь на странице вопроса "помогите написать программы)", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.