написать программу которая в двух. массиве найдет А)произведение целых чисел по строкам б) вычислит сумму элементов главной и обратной диагонали
5-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. Насчет диагоналей, я сделал так, что кол-во столбцов и строк одинаково, ибо не представляю сумму диагоналей у прямоугольника без дополнительных условий.
Другие вопросы из категории
Вид информации Чувство. Орган
зрительная
звуковая
вкусовая
обонятельная
осязательная
Задача : Запрашивается стоимость книги и внесённая оплата, если оплата совпадает со стоимостью, то пишется "спасибо". Если оплата меньше, то пишется "добавьте денег".
Если оплата больше стоимости то пишется "возьмите сдачу" и сумма сдачи.
информационный объём имеет изображение?
Читайте также
2-ая Составить программу , которая в двумерном массиве случайных чисел элементы всех четных строк делает нулевыми
язык паскаль
элементов с нечётными индексами
2)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 10,находит максимальный элемент массива,а затем вычисляет,сколько раз он встречается в массиве
утро","Добрый день","Добрый вечер", "Спокойной ночи". 2)Написать программу,которая определяет,принадлежит ли точка с координатами (x,y)Заштрихованной области,ограниченной точками(x1,y1)(x2,y2).
значениями. №2 Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 до 10 и вычисляет среднее арифметическое элементов массива. №3 Такое же как и №2, только ...элементов массива с четными значениями.