Страница 1 из 1

Помогите решить задачу, на Delfi!

Добавлено: 24 апр 2015, 09:55
имт
1)Найти сумму элементов массива, больших данного числа А (А вводится с
клавиатуры).
2)Задан двухмерный массив целых чисел A размером N на M. Найти
число элементов A[i,j] < T и произведение этих элементов
3)Найти разность суммы элементов двух заданных двухмерных массивов
и их произведение. Определить, что больше.
Заранее спасибо большое!

Re: Помогите решить задачу, на Delfi!

Добавлено: 14 май 2015, 17:01
Oleg_Rus
1. Для начала можно посмотреть раздел "Алгоритмы".
2. Решение ваших задач (пишу навскидку, возможны некоторые ошибки)
2.1. for i:=1 to n do
if (mass>a) then sum:= sum+mass;
2.2. count:=0;
p:=1;
for i:=1 to n do
for j:=1 to m do
if (a[i, j]<t) then begin
count++;
p:=p*a[i, j];
2.3. for i:=1 to n1 do
for j:=1 to m1 do
s1:= s1+a[i, j];
for i:=1 to n2 do
for j:=1 to m2 do
s2:= s2+a[i, j];
if (s1>s2) then raznost:=s1-s2 else raznost:=s2-s1;