Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal В одномерном массиве первый элемент поменять местами со вторым элементом, третий элемент с четвертым элементом и так далее. Ввести одномерный массив поэлементно с помощью клавиатуры или получить его, используя генератор случайных чисел. Одномерный массив может быть целочисленного или вещественного типа.... https://www.cyberforum.ru/ turbo-pascal/ thread996700.html Turbo Pascal Ввести аргумент x с помощью клавиатуры и определить, попадает ли он в область допустимых значений
Найти область допустимых значений аргумента x. Написать процедуру или функцию, которая вычисляет область допустимых значений аргумента x. Написать процедуру или функцию, которая ...
Turbo Pascal Открыть Не могу открыть файлы, а нужно узнать что там внутри http://webfile.ru/06f5e7ddf7c0fce72f534d4cf29307d3 http://webfile.ru/81cd4cb5e84e4c45364f87b72b0373e8... https://www.cyberforum.ru/ turbo-pascal/ thread996682.html Turbo Pascal составить блок схему к коду https://www.cyberforum.ru/ turbo-pascal/ thread996621.html
1) program vgvghv; var a:array of integer; sum:real; i,j: integer; begin writeln('vvedi elementi massiva'); for i:=1 to 5 do for j:=1 to 7 do
Функция, возвращающая среднее из n элементов массива чисел Turbo Pascal
Помогите, пожалуйста с заданием. Напишите функцию, которая возвращает среднее из n элементов массива чисел, добавить счётчик итераций.(ПРИМЕЧАНИЕ:без использования рекурсии). Есть только без...
Turbo Pascal Дана кривая Дана кривая, заданная уравнением y={x}^{2}+ c и известна длина отрезка. Определить, можно ли данным отрезком соединить точки, координаты которых являются корнями кривой https://www.cyberforum.ru/ turbo-pascal/ thread996600.html
Turbo Pascal Текстовые файлы, строковый тип Заранее спасибо! Дан текстовый файл f . Преобразовать строки файла f по правилу. Преобразованные строки переписать в файл g . Правило: Удалить все символы ‘+’ и ‘–‘ в самой длинной строке.... https://www.cyberforum.ru/ turbo-pascal/ thread996554.html Turbo Pascal Добавить счётчики итераций
Помогите добавить в каждую программу счётчик итераций, не понимаю куда его добавить. Одна программа с использованием рекурсии, другая нет. При помощи счётчика итераций необходимо увидеть как будет...
Turbo Pascal Наименьшее из трех чисел заменить полусуммой двух других Если сумма трех попарно различных действительных чисел xбнбя менше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других; в противном случае заменить меньшее из x и y полусуммой... https://www.cyberforum.ru/ turbo-pascal/ thread996534.html Turbo Pascal Найти и вывести остаток от деления числа на 7 Составить программу, которая читает натуральное число а, которое может содержать до 60 цифр. Находит и выводит остаток от деления а на 7. Не знаю как записать чтобы число а содержало не больше 60... https://www.cyberforum.ru/ turbo-pascal/ thread996514.html
Turbo Pascal Описать процедуру печати таблицы
Описать процедуру печати таблицы, параметрами которой являются функции-процедурные переменные, вычисляют: sin x + tg x; sin x - tg x. x и y изменяются в определенном диапазоне; с - в пределах...
Turbo Pascal двумерный массив https://www.cyberforum.ru/ turbo-pascal/ thread996461.html
В двумерном массиве что состоит из целочисленных элементов, поменять местами: в каждом столбце первый и последний отрицательные элементы;
5 / 5 / 12
Регистрация: 12.09.2013
Сообщений: 156
04.11.2013, 00:05 0

В двухмерном массиве вычислить частное от деления суммы всех положительных элементов на сумму всех отрицательных элементов. - Turbo Pascal - Ответ 5281567

04.11.2013, 00:05. Показов 1175. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Program xxx;
var
a:array[1..3,1..2] of real;
x,sum1, sum2:real;
j,i:integer;
begin
for i:=1 to 3 do
begin
for j:=1 to 2 do begin
write('VVEDI a[',i,j, '] ');
read(a[i,j]);
end;
end;
For i:=1 to 3 do begin
For j:=1 to 2 do begin
if (a[i,j]>0)then
sum1:=sum1+a[i,j]
else
sum2:=sum2+a[i,j];
end;
end;
for i:=1 to 3 do begin
for j:=1 to 2 do begin
x:=sum1/sum2;
writeln('sum1/sum2= ',x);
end;
end;
end.
как то так вроде бы но пусть если что поправлят меня

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

В двухмерном массиве вычислить частное от деления произведения всех положительных элементов на произведение всех отрицательных элементов
В двухмерном массиве вычислить частное от деления произведения всех положительных элементов на...

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

В двумерном массиве вычислить частное от деления произведения всех gоложительных элементов на произведение всех отрицательных элементов
В двухмерном массиве вычислить частное от деления произведения всех положительных элементов на...

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

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

В двухмерном массиве вычислить сумму отрицательных элементов всех нечетных строк
Помогите плиз сделать прогу. 1. Ввести двухмерный массив поэлементно с помощью клавиатуры или...

Массивы: Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов
Всем привет, учусь в 9-ом классе. Помогите решить 3 задачи, пожалуйста. 1) Известны данные о...

В массиве B(n), найти сумму всех положительных и произведение всех отрицательных элементов.
В массиве B(n), найти сумму всех положительных и произведение всех отрицательных элементов....

Определите частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов
1.определите частное от деления суммы положительных элементов массива на модуль суммы отрицательных...

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