| Krossich | Дата: Среда, 21.01.2015, 15:41 | Сообщение # 1 |
|
Рядовой
Группа: Пользователи
Сообщений: 3
Статус: Offline
| День добрый !
Задание : Составить программу определения максимального иминимального числа в массиве, состоящем из 20 чисел. Вычислить разность между
максимальным и минимальным значением и заменить ею чётные элементы массива.
Листинг программы :
program abc;
uses crt;
var i,k,n,imin,imax,razn: integer;
A:array[1..20] of integer;
Ch: char;
Label L1,L2;
Begin
clrscr;
Textattr:=white;
Gotoxy(20,6);
Writeln('Вашему вниманию
предоставляется программа,');
Gotoxy(20,7);
Writeln('Которая вычисляет
разность между мин и макс значением');
Gotoxy(40,18);
Writeln('Программу составил
студент');
Gotoxy(40,19);
Writeln('МГУ ПС группы ЭБИ-111');
Gotoxy(40,20);
Writeln('Куприянов А.Д.');
Gotoxy(40,21);
Writeln('Москва, 2014');
Gotoxy(20,23);
Writeln('Нажмите любую клавишу для
продолжения');
Ch:=readkey;
L1:clrscr;
Write('Введите количество
элементов n: ');
Readln(n);
clrscr;
imax:=1;
imin:=1;
Write('Введите значения элементов
массива: ');
For i:=1 to n do
Begin
readln(A);
if A>A [imax]then imax:=i;
end;
Writeln('Max = ',A[imax]);
Writeln('Min = ',A[imin]);
razn:=A[imax]-A[imin];
Writeln('Разница равна ',razn );
Writeln('После замены массив имеет
вид ');
for i:=1 to n do
begin
if A mod 2= 0 then
A:=razn;
write(A:4);
end;
Readln;
Writeln('');
Textattr:=red;
Gotoxy(20,24);
Writeln('Хотите отсортирвать еще
один массив?(Y-да,N-нет)');
L2: Case readkey of
#89:goto L1;
#121:goto L1;
#78:exit;
#110:exit
end;
Goto L2;
end.
|
| |
| |
| diamFC | Дата: Среда, 21.01.2015, 16:15 | Сообщение # 2 |
|
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| Блок-схема готова. DiamFC рулит
|
| |
| |
Программа для построения БЛОК-СХЕМ!!!
