Совершенно верно.

Добавлено (07.01.2009, 20:32)
---------------------------------------------
Смотри вроде так!

Листинг:

program massiv;
var
a:array[1..20] of real;
min: real;
n, i, number: integer;
begin
write('Enter n (n<=20):');
readln(n);
for i:=1 to n do
begin
write('A[',i,']=');
readln(a[i]);
end;

min:=a[1]*a[2];
for i:=2 to n-1 do
begin
if a[i]*a[i+1]<a[i-1]*a[i] then
begin
min:=a[i]*a[i+1];
number:=i;
end;
end;

writeln(min);
writeln(number);
readln;
end.

PS: Fanstar77, данный код не для той блок-схемы, которую мы разбирали ранее. Здесь все делается в одном цикле (там - в двух: вначале расчет произведений соседних элементов, во втором цикле - расчет минимального значения произведения).

Совсем не так!!!

В том же самом цикле, в котором ты ищешь макс. и мин. элементы массива.
До цикла (там где i:=2) определяешь нач. значение суммы, а перед i:=i+1 производишь наращивание суммы.

Что поставить-то? Если сделать так, как сделано в последней блок-схеме, т.е. пытаться наращивать сумму после цикла, то это - грубейшая ошибка, свидетельствующая о непонимании предмета (как сказал один из классиков).

Добавлено (14.02.2009, 18:31)
---------------------------------------------
Хорошая новость Комарову сменили! пришел препод,который все нормально объясняет!

Добавлено (01.03.2009, 14:59)
---------------------------------------------
В заданном тексте определить слово с наибольшем вхождением заданного символа.

P.S. Что то я не понимаю что к чему!

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

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
Edit1: TEdit;
ListBox1: TListBox;
Label3: TLabel;
Label4: TLabel;
ListBox2: TListBox;
Label5: TLabel;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i, n, k, j, max, s, p: integer;
stroka, simv: string;
slovo: array[1..1000] of string;
flag: boolean;
begin
ListBox1.Items.Clear;
ListBox2.Items.Clear;
// Количество строк в исходном тексте
n:=Memo1.Lines.Count;
// Индекс массива слов
k:=1;
slovo[k]:='';

for i:=0 to n-1 do
begin
stroka:=Memo1.Lines[i];
for j:=1 to length(stroka) do
begin
if (stroka[j]<>' ') and (stroka[j]<>',') and (stroka[j]<>'.') and (stroka[j]<>';') and (stroka[j]<>'!')
and (stroka[j]<>'-') and (stroka[j]<>'?')
then begin slovo[k]:=slovo[k]+stroka[j]; flag:=true; end else if flag=true then
begin k:=k+1; slovo[k]:=''; flag:=false; end;
end;
end;

for i:=1 to k do
ListBox1.Items[i-1]:=slovo[i];

// Заданный символ
simv:=Edit1.Text;
max:=0;

for i:=1 to k do
begin
stroka:=slovo[i];
p:=0;
for j:=1 to length(stroka) do
if stroka[j]=simv then p:=p+1;
if p>max then max:=p;
end;

Edit2.Text:=InttoStr(max);

s:=-1;
for i:=1 to k do
begin
stroka:=slovo[i];
p:=0;
for j:=1 to length(stroka) do
if stroka[j]=simv then p:=p+1;
if p=max then if max<>0 then begin s:=s+1; ListBox2.Items[s]:=stroka; end;
end;

end;

end.