Составить блок-схему

@OleGek1996 · Регистрация: 23.03.2015

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

Pascal

uses crt;
const n=3;
var a:array[1..n,1..n] of real;
 b:array[1..n] of real;
 i,j,ko:byte;
 s,s1:real;
begin
writeln('Матрица А');
ko:=0;
for i:=1 to n do
 begin
 for j:=1 to n do
 begin
 a[i,j]:=-5+random*10;
 write(a[i,j]:6:2);
 if (j<i)and(a[i,j]<0) then inc(ko);
 end;
 writeln;
 end;
writeln('Число отрицательных под главной диагональю=',ko);
s:=0;
for i:=1 to n do
 begin
 s1:=0;
 for j:=1 to n do
 s1:=s1+sin(a[1,j]);
 s:=s+5*s1+a[1,i]/7;
 end;
writeln('Сумма элементов 1 строки по формуле=',s:0:2);
for j:=1 to n do
 begin
 b[j]:=0;
 for i:=1 to n do
 b[j]:=b[j]+a[i,j];
 end;
writeln('Массив сумм столбцов');
for i:=1 to n do
write(b[i]:6:2);
end.

@Samhain · 09.06.2015, 12:21

OleGek1996,

@Samhain 696 / 570 / 414 Регистрация: 31.03.2013 Сообщений: 1,029
	09.06.2015, 12:21	2
	OleGek1996, Миниатюры 0

Опции темы