066536 / Задача 315 a

Задача 315 a): Даны символы s₁, … , s₈₀. Определить количество неверных равенств среди: s₁= s₄₁, s₂= s₄₂, … , s₄₀= s₈₀.

ДА

НЕТ

Текст программы:

uses crt;

const s_max=80;// максимальный размер массива

type massiv_s = array [1..s_max] of integer;

Index1 = 1..s_max; //Index1 интервал 1..80

var s:massiv_s; //массив s

razm_s:Index1;

i,k:integer; //счетчики в циклах

begin

razm_s:=80;

for i:=1 to razm_s do

begin

s[i]:=random(razm_s);

writeln('s':2,i,'=',s[i],' ');

end;

k:=0; //обнуление счетчика

for i:=1 to 40 do

begin

if s[i]<>s[i+40] then k:=k+1 else writeln('s',i,'=s',i+40,'=',s[i]);

end;

writeln('число неверных равенств - ',k)

end.

Пример выполнения: