Решение домашних заданий

Заполнить массив из 10 элементов случайными числами в интервале от 0 до 4 и определить, есть ли в нем одинаковые соседние элементы. В Паскале АВС

1 января 0001 / Информатика / Комментарии: 0

Заполнить массив из 10 элементов случайными числами в интервале от 0 до 4 и определить, есть ли в нем одинаковые соседние элементы.В Паскале АВС

  • Program Program1;
    Var
    a:array [1..10] of integer;
    i:integer;
    rez:boolean;
    begin
    randomize;
    write(‘Массив: ‘);
    for i:=1 to 10 do
    begin
    a[i]:=random(5);
    write(a[i],’,’);
    end;
    rez:=false;
    for i:=1 to 10 do
    begin
    if (i>1) and (a[i]=a[i-1]) then rez:=true;
    if (i<10) and (a[i]=a[i+1]) then rez:=true;
    end;
    if rez then writeln(‘ Есть одинаковые соседние элементы’) else
    writeln(‘ Нет одинаковых соседних элементов’);
    end.

Добавить комментарий