//Ошибка в if.
//В принципе можно обойтись и без вычисления s. Просто
//прерывать цикл при несовпадении двух шестеренок и
//выводить NO
var
n, s, i, m, m1: int64;
begin
s := 0;
Read(n, m1);
for i := 1 to n - 1 do
begin
Read(m);
if m = m1 then
S := s + 1;
m := m1;
end;
if (s = n - 1) then
Write('YES');
if (s <> n - 1) then
Write('NO');
end.
Объем , цвет(возможен ) , форма
Это к первому вопросу:
Program n1;
Uses Crt;
Var
a: array[1..10] of integer;
i,k,max,m:integer;
Begin
for i:=1 to 10 do begin
a[i]:=random(11)+10;
write(a[i]:4);
end;
writeln;
max:=a[1];
for i:=2 to 10 do
if (max<a[i]) then max:=a[i];
k:=0;
for i:=1 to 10 do
if (max=a[i]) then k:=k+1;
writeln('Kol-vo elementov ravnih max lementu massiva: ',k);
<span>End.
Второй вопрос просто-напросто не понял.</span>
Program arr;
Const n=3;
var i, j, tmp, k, z:integer;
c:boolean;
a:array [1..n,1..n] of integer;
begin
c:=false;
for i:=1 to n do
for j:=1 to n do
read(a[i][j]);
for i:=1 to n do
for j:=1 to n do
begin
tmp:=a[i][j];
for k:=i+1 to n do
for z:=j+1 to n do
if tmp = a[k][z] then
c:=true;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i][j], ' ');
writeln;
end;
if c = true then
writeln('В данном массиве есть равные друг другу элементы')
else writeln('Элементы, равные друг другу, отсутсвуют в данном массиве');
end.
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
//Задание 12.а.
//Сумма первых n натуральных чисел
var s := 0;
var n := ReadlnInteger('введите n');
for var i := 1 to n do s := s + i;
Println(' Cумма первых', n, '=', s);
//Задание 12.г.
//Сумма всех двузначных
s := 0;
for var i := 10 to 99 do s := s + i;
Println(' Cумма всех двузначных', '=', s);
//Задание 13.
//Получаем 10 сл. чисел, выводим на экран
// и получаем среднее арифметическое
var a := ArrRandom(10, 1, 20);
println(a);
println('Среднее арифметическое ', a.Average)
end.