сервис вопросов и ответовНапишите программу в fre pascale по данной задаче и данной блок схеме
10-11 класс|
|
Прикрепленные изображения
Yuliyakashaeva
11 февр. 2014 г., 14:45:13 (10 лет назад)
Fgfhfghgfhgfh1
11 февр. 2014 г., 17:13:41 (10 лет назад)
var i, j, sum, max, number_of_line: integer; a: array [1..10, 1..10] of integer;
begin
randomize;
max := 0;
number_of_line := 1;
for i := 1 to 10 do
for j := 1 to 10 do
begin
a[i, j] := random(1000); {Для удобства проверки работоспособности массив заполняется рандомно}
if max < a[i, j]
then
begin
max := a[i, j];
number_of_line := i;
end;
end;
for i := 1 to 10 do
begin
for j := 1 to 10 do
write(a[i, j], ' '); {Для проверки организован вывод всей матрицы}
writeln;
end;
sum := 0;
for j := 1 to 10 do
sum := sum + a[number_of_line, j]; {Собственно, сам подсчёт суммы}
writeln(sum);
end.
-------------------------------
Блок-схема не полностью видна, но программа будет очень похожа на вышенаписанную
Ответить
Другие вопросы из категории
Из детей, которые пришли в гости к Наде, больше половины были мальчики. Больше трети мальчиков звали Федя. Всего среди гостей было три Феди. Какое наибо
льшее количество детей могло быть в гостях у Нади? (А) 12 (Б) 13 (В)14 (Г)15 (Д)16
Под алфавитом понимают:
1) -любую конечную последовательность символов;
2) -упорядоченный определенным образом конечный набор знаков, расположенных в строго определенной последовательности;
3) -совокупность знаков и символов;
4) -конечный набор любых знаков;
5) -произвольная последовательность конечного набора знаков или символов.
Помогите, пожалуйста, написать программы на языке паскаль:
1,Найти
наименьший элемент массива (начиная с k-го) и
его порядковый номер. Поменять местами k-тый и найденный минимальный элемент.
Читайте также
Задачи паскаль, помогите пожалуйста кто. 1, Напишите программу, реализующую следующие вычисления. Дан номер месяца — целое число в диапазоне
1–12, введенное с клавиатуры (1 — январь, 2 — февраль и т. д.). Вывести название соответствующего времени года («зима», «весна», «лето», «осень»).
2, Напишите программу, реализующую следующие вычисления. Дана матрица размера M x N (числа вводятся с клавиатуры). Для каждого столбца матрицы найти произведение его элементов. Полученные значения вывести в текстовый файл.
3, Напишите программу с использованием функции CircleS(R) вещественного типа, находящей площадь круга радиуса R (R — вещественное). С помощью этой функции найти площади трех кругов с данными радиусами. Площадь круга радиуса R вычисляется по формуле S = πR2.
4, Напишите программу, реализующую следующие вычисления. Дано целое число N (1≤N≤26), введенное с клавиатуры. Вывести N первых прописных (то есть заглавных) букв латинского алфавита.
№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от 0 до 100. Напишите программу, которая позволит найти сумму
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от -100 до 100. Напишите программу, которая позволит
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива
Помогите с задачей!
напишите программу определения стоимости разговора по телефону с учётом скидки 20% представляемой по субботам и воскресениям. Вычисление стоимости разговора по телефону. Введите исходные данные: Длительность разговора(целое количество минут)— 3 День недели(1-понедельник,...7-воскресенье)--5 Предоставляется скидка 20% Стоимость разговора: 5.52 руб. (она большая должна быть и для паскаля)!
Сделайте пожалуйста блок-схему или код в small basic. Дан массив из 20 целых чисел. В массиве хранятся результаты соревнований по спортивной стрельбе.
Один элемент массива соответствует количеству очков, набранных одним участником соревнований, и имеет значение от 0 до 30 включительно. Необходимо разработать программу, которая по данным массива вычисляет максимальное количество очков среди участников соревнований, и количество участников набравшее зачётное количество очков. Зачётное количество очков 18. Гарантируется, что хотя бы один участник соревнований набрал зачётное количество очков.
Вы находитесь на странице вопроса "Напишите программу в fre pascale по данной задаче и данной блок схеме", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.