Нужно составить блок-схему

26.12.2011, 17:50. Показов 309. Ответов 0

Метки нет (Все метки)

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

Pascal

{massivy tolko polozhit ili otricat}
uses crt;
var i,l,k:integer;
    a1,a2,b1,b2:array[1..22]of integer;
begin
clrscr;
writeln('vvedite A1:');
for i:=1 to 4 do
readln(a1[i]);
writeln('vvedite B1:');
for i:=1 to 5 do
readln(b1[i]);
 
l:=0;k:=0;
 
for i:=1 to 10 do
begin
if a1[i]>0 then begin inc(l); a2[l]:=a1[i]; end;
if a1[i]<0 then begin inc(k); b2[k]:=a1[i]; end;
end;
 
for i:=1 to 12 do
begin
if b1[i]>0 then begin inc(l); a2[l]:=b1[i]; end;
if b1[i]<0 then begin inc(k); b2[k]:=b1[i]; end;
end;
 
writeln('Massiv A2:');
for i:=1 to l do
write(a2[i],' ');
writeln;
writeln('Massiv B2:');
for i:=1 to k do
write(b2[i],' ');
readln;
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

26.12.2011, 17:50

Ответы с готовыми решениями:

Нужно составить блок-схему
вот есть листинг програмы как составить блок-схему? 1) Program pr_4; Uses crt; const n=10; var...

Нужно составить блок-схему
program prog_3_4; var a, b, a1, b1 : integer; begin write('Vvedit a: '); readln(a); ...

Нужно составить блок-схему
Program pr_5; Uses Crt; Var i,j,n,b,q : Integer; A : Array of integer; Procedure...

Нужно составить блок-схему к двум програмам
задача 2.1 program pr_21; uses crt; const a=3; b=3; var a1 : array of real; a2 : array of...

	26.12.2011, 17:50

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

26.12.2011, 17:50

Помогаю со студенческими работами здесь

Нужно составить блок-схему (подскажите, как обозначается With Do)
Const nmax=30; Type TDate=Record day,month,year:integer; End; TTime=Record ...

Составить блок-схему
Написал код, не могу правильно нарисовать блок схему: const n=4; Digits=; dOdd=;...

Составить блок схему
Program zamena; uses crt; const n=20; var a: array of integer; i, max_i, Summ1,...

Составить блок-схему
Требуется составить блок схему к программе: Вычислить среднее арифметическое элементов числовой...

Составить блок-схему
пожалуйста подскажите надо составить блог-схему задание и программа внутри заранее спасибо.

Составить блок-схему
Нужно составить блок схему для этой задачи: Program summa; uses WIncrt; var i:integer; ...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх