Помогите пожалуйста решить задачу на Pascal.

r-jey_zizo

Дата: Вторник, 26.02.2008, 00:42 | Сообщение # 1

Новичок

Группа: Пользователи

Сообщений: 4

Репутация: 0

Замечания: 0%

Статус: Offline

Помогите мне пожалуйста написать программу, а то у самого никак не получается. cry

Зараннее благодарен!

Найти сумму и количество положительных элементов таблицы В[1..5,1..5], которые находятся над главной диагональю.

sinet

Дата: Воскресенье, 02.03.2008, 20:12 | Сообщение # 2

Новичок

Группа: Пользователи

Сообщений: 6

Репутация: 0

Замечания: 0%

Статус: Offline

begin
clrscr; randomize;
for i:=1 to 5 do
for j:=1 to 5 do
b [i,j]:=random(50);
kolichestvo:=0;
summa:=0;
for i:= 3 to 5 do
for j:= 1 to i-1 do
if b[i,j] > o then begin
kollichestvo:= kollichestvo +1;
summa:= summa+ b[i,j];
end;
write ( 'kollichestvo = ' ,kollichestvo);
write (' summa = ' , summa);
readln;
end.
вроде так, но еще проверишь....

r-jey_zizo

Дата: Вторник, 04.03.2008, 09:42 | Сообщение # 3

Новичок

Группа: Пользователи

Сообщений: 4

Репутация: 0

Замечания: 0%

Статус: Offline

Спасибо, я с другом наконец-то ее решили:
Program Zadacha;
uses crt;
const m=5;
var b:array[1..m,1..m] of integer;
i,j,kol:integer;
s:real;
begin
writeln('Введите элементы масива');
kol:=0;
s:=0;
for i:=1 to M do begin
for j:=1 to M do read(b[i,j]);
readln;
end;
writeln;
writeln('Общий вид таблички до преобразования');
writeln;
for i:=1 to m do
begin
for j:=1 to m do write(b[i,j]:5);
writeln;
end;
for i:=1 to m do
for j:=1 to m do
if (i<j) and (b[i,j]>0) then begin
kol:=kol+1;
S:=S+b[i,j];
end;
writeln('Количество положительных элементов над главной диагональю =',kol');
writeln('Сумма элементов =',s:5:2);
readkey;
end.

		Четверг, 09.01.2025
	Pascal 4 All