Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Turbo Pascal Дан двумерный массив размером 2х3. №28 Дан двумерный массив размером 2х3. 3аменить все четные элементы на их значения, уменьшенные в 2 раза, а из оставшихся – вычесть 1. https://www.cyberforum.ru/ turbo-pascal/ thread318718.html Тренажер клавиатуры Turbo Pascal
Выручите плиз кто-нибудь исходником клавиатурного тренажера на паскале
Turbo Pascal дана стока символов https://www.cyberforum.ru/ turbo-pascal/ thread318701.html
дана строка символов. ввод заканчивается после набора буквы "d" отсортировать все символы в порядке убывания. 		Turbo Pascal Описать процедуру SwapRow(A, M, N, K1, K2), осуществляющую перемену местами строк вещественной матрицы А размером M*N с номерами строк К1 и К2 Помогите,пожалуйста, срочно решить задачу,а то допуск до экзамена не получу =( Задача. Описать процедуру SwapRow(A, M, N, K1, K2), осуществляющую перемену местами строк вещественной матрицы А размером M*N с номерами строк К1 и К2. Матрица является входным и выходным параметром; если К1 или К2 больше М, то матрица не изменяется. Используя эту процедуру,упорядочить строки матрицы А по... https://www.cyberforum.ru/ turbo-pascal/ thread318688.html
Turbo Pascal Найти количество столбцов, похожих на последний столбец данной матрицы
Matrix16. Дана квадратная матрица A порядка M (M — нечетное число). Начи- ная с элемента A1;1 и перемещаясь против часовой стрелки, вывести все ее элементы по спирали: первый столбец, последняя строка, последний столбец в обратном порядке, первая строка в обратном порядке, оставши- еся элементы второго столбца и т. д.; последним выводится центральный элемент матрицы. Matrix37. Дана... 		Turbo Pascal Дан массив размера N. Найти количество участков, на которых его элементы монотонно возрастают Array37. Дан массив размера N. Найти количество участков, на которых его элементы монотонно возрастают. Array120. Дан целочисленный массив размера N, содержащий по крайней мере одну серию, длина которой больше 1. Преобразовать массив, уменьшив каждую его серию на один элемент (определение серии дано в задании Array116). https://www.cyberforum.ru/ turbo-pascal/ thread318680.html
Turbo Pascal Решение уравнений с одной переменной https://www.cyberforum.ru/ turbo-pascal/ thread318679.html
Помогите пожалуйста! Никогда до этого с паскалем толком не сталкивалась! А по летней практике дали вот эту задачку!!((( Тема работы – «Решение уравнений с одной переменной». Программу составить согласно «Зада- нию на ЭВМ». Обязательны для реализации следующие методы: Ньютона, хорд, итераций Собственно само уравнение:: F:=X-10*sin(X) далее идет образец того как можно(а лучше всего... 		Turbo Pascal Преобразовать строку, заменив точками все запятые
помогите решить! дана строка. преобразовать ее, заменив точками все запятые. ( строку можно придумать самим)
Turbo Pascal Описать процедуру Minmax(X, Y) https://www.cyberforum.ru/ turbo-pascal/ thread318673.html
Proc11. Описать процедуру Minmax(X, Y), записывающую в переменную X минимальное из значений X и Y, а в переменную Y — максимальное из этих значений (X и Y — вещественные параметры, являющиеся одновре- менно входными и выходными). Используя четыре вызова этой процеду- ры, найти минимальное и максимальное из данных чисел A, B, C, D. 		Turbo Pascal Найти количество строк, похожих на первую строку данной матрицы. Matrix36. Дана целочисленная матрица размера M £ N, элементы которой мо- гут принимать значения от 0 до 100. Различные строки матрицы назовем похожими, если совпадают множества чисел, встречающихся в этих стро- ках. Найти количество строк, похожих на первую строку данной матрицы. https://www.cyberforum.ru/ turbo-pascal/ thread318662.html
Преобразовать массив, удвоив длину его серии с номером K Turbo Pascal
Array121. Дано целое число K (> 0) и целочисленный массив размера N. Пре- образовать массив, удвоив длину его серии с номером K (определение серии дано в задании Array116). Если серий в массиве меньше K, то вывести массив без изменений. 		Turbo Pascal Вставить пустую строку после строки файла с номером K Text10. Дано целое число K и текстовый файл. Вставить пустую строку после строки файла с номером K. Если строки с таким номером нет, то оставить файл без изменений. Text43. Даны вещественные числа A, B и целое число N. Создать текстовый файл, содержащий таблицу значений функций sin(x) и cos(x) на проме- жутке с шагом (B¡A)/N. Таблица состоит из трех столбцов: с ар- гументами x (8... https://www.cyberforum.ru/ turbo-pascal/ thread318660.html
15 / 15 / 19
Регистрация: 12.06.2011
Сообщений: 30
13.06.2011, 12:39 0

Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел размером 3х2. - Turbo Pascal - Ответ 1754572

13.06.2011, 12:39. Показов 1652. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено romera как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

const
n=3;
m=2;
var
i,j,k:integer;
ar:array [1..n,1..m] of integer;
sr:real;
begin
for i:=1 to n do
for j:=1 to m do begin
writeln('Vvedite ',i,' , ',j,' element: ');
read(ar[i,j]);
end;
for i:=1 to n do
for j:=1 to m do begin
if ar[i,j]<>0 then begin
inc(k);
sr:=sr+ar[i,j];
end;
end;
sr:=sr/k;
writeln('Srednee: ',sr:2,2);
end.


Вернуться к обсуждению:
Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел размером 3х2. Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 13.06.2011, 12:39
Готовые ответы и решения:

Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел
Помогите написать программу, которая вычисляет среднее арифметическое ненулевых элементов...

Написать программу, которая вычисляет среднее геометрическое положительных элементов введенного с клавиатуры массива целых чисел
Написать программу, которая вычисляет среднее геометрическое положительных элементов введенного с...

Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел.
Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с...

Написать профамму, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива
Помогите написать прог которая вычисляет среднее арефметическое ненулевых элементов массНаписать...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 13.06.2011, 12:39
Помогаю со студенческими работами здесь

Среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел
Здравствуйте! Нужно написать программу которая вычисляет среднее арифметическое не 0-вых элементов...

Среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел
Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с...

Написать программу, которая вычисляет произведение элементов введенного с клавиатуры массива целых чисел
Написать программу, которая вычисляет произведение элементов введенного с клавиатуры массива целых...

Вычислть среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел.
Помогите написать программу Написать программу, которая вычисляет среднее арифметическое...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru