Пример 7.1.

Вычислить наибольший элемент Xmax массива Х и его порядковый номер Nmax. Размерность массива. Результат – консольное приложение.

Блок-схема алгоритма

paskal51

Листинг программы

program prg_7_1;

{$mode objfpc}{$H+}

uses

Classes, SysUtils, RusTrans;

const NN=30;

var

i,n,Xmax,Imax: integer;

x:array[1..NN] of integer;

begin

writeln (Rus(‘Введите размер массива n’));

readln(n);

writeln;

randomize;

for i:=1 to n do x[i]:=random(100);               // Ввод элементов массива x

Xmax:=x[1];                                                 // Кандидат в Xmax

Imax:=1;                                                       // Его номер

for i:=2 to n do if x[i]>Xmax then           // Поиск Xmax

begin

Xmax:=x[i];

Imax:=i

end;

writeln;

writeln(Rus(‘Результат’));

writeln(Rus(‘Максимум Xmax=’),Xmax);

writeln(Rus(‘Его номер Imax=’),Imax);

readln;

end.

paskal52

Twitter SEO Community Ваау! News2.ru Chipp Korica SMI2 Google Bookmarks Digg I.ua Закладки Yandex Linkstore Myscoop Communizm Ru-marks Webmarks Ruspace Linkomatic Kli.kz Web-zakladka Zakladok.net Reddit delicious Ma.gnolia Technorati Slashdot Yahoo My Web БобрДобр.ru Memori.ru rucity.com МоёМесто.ru Mister Wong



Copyright © 2009-2010 Программирование на паскале.