Программа на Turbo Pascal

15 ноября 2009

Ещё одна программа для понимания основ ТР. Программа вывод матрицу состоящую из положительных и отрицательных элементов, после чего считает сумму строк с первым положительным элементом. 

Program Symmapoloshitelnix;

uses crt;

VAR A:array[1..5,1..6] of integer;

i,j,o,s:integer;

BEGIN

textcolor(green);

randomize;

for i:=1 to 5 do

for j:=1 to 6 do

Begin

A[i,J]:=random(100);

o:=random(2);

if o=1 then a[i,j]:=-a[i,j];

end;

clrscr;

for i:=1 to 5 do

begin

for j:=1 to 6 do

write (A[i,j]:5);

writeln;

end;

writeln;

s:=0;

for i:=1 to 5 do

if a[i,1]>=0 then

for j:=1 to 6 do

S:=S+a[i,j];

writeln(‘Сумма строк с первым положительным элементом = ‘, s);

readln;

end.

RSS-комментарии

Оставьте свой отзыв

Подписаться, не комментируя