| Гость | Дата: Пятница, 17.06.2011, 22:37 | Сообщение # 1 |
|
Группа: Гости
| uses crt;
type mas=array [1..100] of integer;
var
b:mas;
p,i,n:integer;
procedure vvod (x:mas;k:integer);
var i,p:integer;
begin
for i:=1 to n do begin
write('Vvedite chislo: ');
readln(x[i]);
end;
for i:=1 to n do
write(x[i]:3);
for i:=n downto 1 do
if x[i]<0 then
p:=i;
writeln;
write('= ',x[p-1]);
writeln;
readln;
end;
begin
clrscr;
write('Vvedite kol-vo chisel: ');
readln((n));
vvod (b,n);
readln;
end.
|
| |
| |
| diamFC | Дата: Суббота, 18.06.2011, 01:38 | Сообщение # 2 |
|
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| или оформите тему в соответствии с правилами (создайте новую)
или скачайте программу и постройте себе блок-схему бесплатно с помощью программы diamFC. Скачать последнюю версию можно тут http://diamfc.ucoz.ru/load/distributiv_programmy/1-1-0-1
|
| |
| |
| defaultNick | Дата: Суббота, 18.06.2011, 09:36 | Сообщение # 3 |
|
Рядовой
Группа: Пользователи
Сообщений: 2
Статус: Offline
| мне тут курсовую завтра сдавать, а вы со своими правилами!( я с телефона и софт для винды на андроиде не пойдет., программа не работает бесплатно, все время вылезало какоето сообщение; через час курсовую сдавать 
|
| |
| |
Программа для построения БЛОК-СХЕМ!!!
