Помогите с блок-схемой - Форум
Вторник, 06.12.2016, 08:46
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите с блок-схемой (Тольк не кидайте ссылку на программу,не понимаю в ней ничего)
Помогите с блок-схемой
RusyaДата: Понедельник, 20.06.2011, 21:10 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 6
[ 0 ]
Статус: Offline
Вот условие:
Найти максимальное и минимальное число,напечатать элементы массива ,которые в массиве находяться между ними ( между максимума и минимума ..)
Вот программа:
program pr;
uses crt ;
const n=10 ;
var max,min,i,k1,k2:integer;
begin
clrscr;
randomize;
for i :=1 to n do
begin
a[i]:=round(20*random-5);
write (a[i]:3);
end;
max:=a[1];
k1:=1;
min:=a[1];
k2:=1;
for i:=2 to n do
if a[i]>max then
begin
msx :=a[i];
k1:=i;
end;
if a[i]<min then
begin
min :=a[i];
k2:=i;
rnd;
writeln;
writeln('max=',max,' ',k1);
writeln('min +',min,' ' ,k2);
if k2<k1 then
begin
for i:=k2 to k1 do
write (a[i] :5);
end;
else
begin
for i:=k1to k2 do
write(a[i]:0;
end;
end.
 
KOT_B_MEIIIKEДата: Вторник, 21.06.2011, 15:51 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
оно не будет работать скорее всего.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите с блок-схемой (Тольк не кидайте ссылку на программу,не понимаю в ней ничего)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016