сервис вопросов и ответовнаписать программу которая в двух. массиве найдет А)произведение целых чисел по строкам б) вычислит сумму элементов главной и обратной диагонали
5-9 класс|
|
Nekko2004
09 апр. 2015 г., 16:51:01 (9 лет назад)
Srochnotg
09 апр. 2015 г., 18:59:12 (9 лет назад)
var i, j, a, b:integer;
s:array [1..10000,1..10000] of real;
pr:array [1..10000] of real;
k:array [1..10000] of integer;
sum1, sum2:real;
begin
writeln ('Введите количество столбцов');
read (a);
for i:=1 to a do pr[i]:=1;
for i:=1 to a do
for j:=1 to a do
begin
read (s[i,j]);
if int(s[i,j])=s[i,j] then
begin
inc(k[i]);
pr[i]:=pr[i]*int(s[i,j]);
end;
end;
for i:=1 to a do
if k[i]>0 then writeln(pr[i]:1:0) else writeln ('0');
for i:=1 to a do
begin
sum1:=sum1+s[i,i];
sum2:=sum2+s[a-i+1,a-i+1];
end;
writeln (sum1:0:5,' ',sum2:0:5);
end.
P.S. Надеюсь на лучший ответ)
P.S.S. Насчет диагоналей, я сделал так, что кол-во столбцов и строк одинаково, ибо не представляю сумму диагоналей у прямоугольника без дополнительных условий.
Ответить
Другие вопросы из категории
1) Компьютерный вирус А заполняет 1 ГБАЙТ за 1 месяц, вирус В за 2 месяца , вирус С , за 3 месяца , а вирус D за шесть месяцев. На компьютере установлены
все 4 вируса. Сколько ГИГАБАЙТОВ они заполнят за 1 месяц.
2) Действие компьютерного вируса состоит в том, что вместо букв "б", "в", "л", "о", "т". выводятся цифры кроме цифры 0, причем разным буквам соответствуют разные цифры. Выясните,какие цифры каким буквам соответствуют, если известно что :
1)сумма цифр слова "бот" равна 8 ;
2) сумма цифр слова "вол" равна 9;
3)сумма цифр слова "болт " равна 11
4)сумма цифр слова лото равна 12
Пожалуйста, помогите мне решить эту задачу. Для решения надо составить таблицу по правилам оформления таблиц, которые я тоже прикрепила сюда. Таблицу
составьте по правилам, сфотографируйте и прикрепите, а решение напишите.
Читайте также
1) составить программу , которая вычисляет суммы элементов столбцов двумерного массива и записывает их в одномерный
2-ая Составить программу , которая в двумерном массиве случайных чисел элементы всех четных строк делает нулевыми
язык паскаль
1)составьте программу,которая заполняет массив a[1..10] случаынми целыми числами в диапазоне от 0 до 10 и находит минимальный элемент массива среди
элементов с нечётными индексами
2)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 10,находит максимальный элемент массива,а затем вычисляет,сколько раз он встречается в массиве
Помогите плиз срочно 1)Написать программу,которая спрашивает"Который час?" и,в зависимости от введенного времени,выводит приветствие:"Доброе
утро","Добрый день","Добрый вечер", "Спокойной ночи". 2)Написать программу,которая определяет,принадлежит ли точка с координатами (x,y)Заштрихованной области,ограниченной точками(x1,y1)(x2,y2).
№1 Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет произведение массива с четными
значениями. №2 Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 до 10 и вычисляет среднее арифметическое элементов массива. №3 Такое же как и №2, только ...элементов массива с четными значениями.
Пожалуйста помогите решить желательно все или хотя бы одну (P.S. программа для программы Turbo Pascal) 1.Написать программу, которая предлагает
ввести 3 значное число и находит сумму его цифр.
2. Написать программу, которая предлагает ввести 3 значное число и меняет порядок цифр наоборот. (123- 321)
3.Написать программу, которая предлагает ввести три числа с клавиатуры, находит их сумму, произведение и среднее арифметическое.
Вы находитесь на странице вопроса "написать программу которая в двух. массиве найдет А)произведение целых чисел по строкам б) вычислит сумму элементов главной и обратной диагонали", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.