Const
n = 50;// количество элем массиваvar
a: array [1..n] of integer;
kol, i: integer;begin
for i := 1 to n do
readln(a[i]);
for i := 2 to n - 1 do
if (a[i] > a[i + 1]) and (a[i] > a[i - 1]) then
kol := kol + 1;
writeln(kol);
end.
Стыдно не знать, Стив Джобс
1)
var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
for i:=1 to n do
begin
read(a);
s:=s+a;
end;
writeln('s = ',s);
end.
2)var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
i:=0;
repeat
i:=i+1;
read(a);
s:=s+a;
until i=n;
writeln('s = ',s);
end.
3)
var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
i:=0;
while i<n do
begin
i:=i+1;
read(a);
s:=s+a;
end;
writeln('s = ',s);
end.
Пример:
n = 5
Введите 5 чисел:
8 2 9 6 4
s = 29
Это проверка текста на орфографию.
Словарь храниться в файле,в базе данных, зависит от реализации ОС или ПО. Также словарь может закачиваться или запрашиваться из Интернета.
1 отношение между двумя множествами объектов
2 отношение между объектами и множеством объектов
3) отношение между двумя объектами