Блок схема

@garynich89 · Регистрация: 12.05.2010

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

Составьте пожалуйста блок-схему для программы...Она печатает номер каждого столбца, сумма элементов которого меньше нуля, и их кол-во.Помогите чем сможете.

Delphi

program Project6;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
a:array[1..2,1..8] of integer;
k,i,j,s:integer;
 
begin
writeln('Vvedite matricu a(2*8)');
for i:=1 to 2 do
for j:=1 to 8 do
read (a[i,j]);
  begin
  k:=0;
  for j:=1 to 8 do
  begin
s:=A[1,j]+A[2,j];
if s<0 then
   begin
     writeln('j= ',j);
     k:=k+1
   end;
end;
writeln('k= ',k);
readln(k);
end;
end.

@WolfCF · 21.05.2010, 16:43

держи

@WolfCF 3310 / 1372 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	21.05.2010, 16:43	2
	держи Миниатюры 1