Найти сумму всех элементов массива вещественных чисел, больших заданного числа

@DDAN · Регистрация: 13.12.2011

Author24 — интернет-сервис помощи студентам

Добрый вечер) Как всегда студент перед сессией просит помощи) Завал конкретный.
Во сопсна 2 задачки:
1) Найти сумму всех элементов массива вещественных чисел, больших заданного числа. Размерность массива 20. Заполнение массива осуществить случайными числами от -50 до 100.
2) Дан действительный массив размерностью n*m, в которой не все элементы равны нулю. Получить новый массив путем деления всех элементов данного массива на ее больший по модулю элемент
2ую даже не пробовал. Help

Спустя несколько часов сиденья на всяких там гид-сайтах по паскалю...

Добавлено через 19 минут
Ну вот сопсна 1ая задачка. Проверьте плз может где упустил чего.

Pascal

Program  DDAN;
uses crt;
const n=5;m=4;
Var a:array[1..n,1..m]  of integer;
b,sum,i,j: integer;
Begin
Writeln('Ââåäèòå ÷èñëî');
Readln(b);
Randomize;
For i:=1 to n do
begin
For j:=1 to m do
begin
a[i,j]:=random(151)-50;
write(a[I,j]:3);
if a[I,j]>b then
sum:= sum + a[i,j]
End;
writeln
End;
Writeln(' ',sum);
Readln;
End.

@mamedovvms · 14.12.2011, 13:24

Pascal

Program  asd;
uses crt;
Var a:array[1..20]  of integer;
i,b,sum:integer;
Begin
clrscr;
sum:=0;
Writeln('Введите число');
Readln(b);
Randomize;
For i:=1 to 20 do
begin
 a[i]:=-50+random(150);
 write(a[i]:4);
 if a[i]>b then
  sum :=sum+a[i];
end;
writeln;
writeln('Summa = ',sum);
readln;
end.

Добавлено через 2 минуты
2 задача нужно просто найти максимальный элемент по модулю и разделить на него все элементы массива

@DDAN · 14.12.2011, 14:38 **[ТС]**

mamedovvms, Успокоил блин

И кстати спасибо за код. реально поудобней и по проще моего

Добавлено через 1 час 0 минут
В нете полазил нашел таки задачку свою с решением.
вот код.

Pascal

program DDAN;
uses crt;
const n=5; m=5;
var
a:array[1..n,1..m] of integer;
b:array[1..n,1..m] of real;
i,j:integer;
max:integer;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(100)-50;
writeln('Исходная матрица');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:5,' ');
writeln;
end;
max:=a[1,1];
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=abs(a[i,j]);
if a[i,j]>max then
max:=a[i,j];
end;
writeln('Максимальный по модулю элемент = ', max);
for i:=1 to n do
for j:=1 to m do
b[i,j]:=a[i,j]/max;
writeln('Итоговая матрица');
for i:=1 to n do
begin
for j:=1 to m do
write(b[i,j]:0:2,' ');
writeln;
end;
readln;
end.

И еще. Начиная с begin в самом начале программы можно поменять вот на этот код и элементы исходного массива можно вводить вручную.

Pascal

begin
clrscr;
for i:=1 to n do
for j:=1 to m do
read (a[i,j]);

@slovin · 14.12.2011, 14:46

чтоб не запутаться ставь всё время операторы begin и end;
получится так:

Pascal

....
for i:=1 to n do
begin
for j:=1 to m do
begin
write('a[',i,j,']=');readln(a[i,j]);
end;
end;
....

@DDAN · 14.12.2011, 15:03 **[ТС]**

А теперь можно вопрос по теории ко 2ой проге?)
Что вот это 2 действа вообще такое???

1)

Pascal

for i:=1 to n do
begin
for j:=1 to m do
Write(a[i,j]:3,' ');
Writeln;
end;
max:=a[1,1];
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=abs(a[i,j]);
if a[i,j]>max then
max:=a[i,j];

2)

Pascal

Writeln('Ìàêñèìàëüíûé ïî ìîäóëþ ýëåìåíò = ', max);
for i:=1 to n do
for j:=1 to m do
b[i,j]:=a[i,j]/max;
Writeln('Èòîãîâàÿ ìàòðèöà');

	14.12.2011, 15:03

Найти сумму всех элементов массива вещественных чисел, больших заданного числа

Решение