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 В двумерном массиве что состоит из целочисленных элементов, поменять местами: в каждом столбце первый и последний отрицательные элементы;

Misha_Beginner

5 / 5 / 12

Регистрация: 12.09.2013

Сообщений: 156

04.11.2013, 00:05

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

04.11.2013, 00:05. Показов 1175. Ответов 2

Метки (Все метки)

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

Решение

Pascal

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

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

04.11.2013, 00:05

Готовые ответы и решения:

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

04.11.2013, 00:05

Помогаю со студенческими работами здесь

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

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

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

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

Наверх