введите с клавиатуры переменную c.переменной b присвойте значение равное 10 если c>b выведите на экран их сумму иначе,выведите удвоенное значение.Блок схема

Блок-сызбанұсқасы — сызбанұсқаның танымал түрі, алгоритм және процесті суреттейді, яғни әр қадамды сурет (түрлі блоктар сияқты) ретінде суреттеледі, олар сызықшамен бір-біріне байланысады, ал сызықтар алгоритм ретін көрсетеді.

Алгоритмдік тіл (ағылш. algorіtmіc — алгоритмдік және language — тіл) — ЭЕМ-мен шығарылатын есептердің алгоритмін бірмәнді түрде жазуға арналған жасанды тіл. Ол белгілер (символдар) жиынтығынан (Алгоритмдік тіл алфавитінен), синтаксистік ережелер мен семантикалық анықтамалардан құралған. Алгоритмдік тілдің негізгі белгілері латын не орыс алфавиттері әріптері, қандай да бір таңбалар мен шартты белгілер болуы мүмкін. Сөздер, сөз тіркестері (фразалар, сөйлемдер) , кестелер мен кестелер жүйесі Алгоритмдік тілдің құрылымы болып табылады. Түсіндіру ережелері ЭЕМ-де аппараттармен жүзеге асырылатын Алгоритмдік тіл машиналық тіл деп аталады. Алгоритмдік тіл табиғи тілден бірмәнділігі мен айқындылығы жағынан ерекшеленеді. Есептеу машинасына Алгоритмдік тілін пайдаланғанда бағдарламалау мен машина жұмысын үйлестіретін арнайы бағдарламалаушы — процессор қолданылады. Ол бағдарламаны енгізу, машиналық, синтаксистік, семантикалық талдаулар, формальды қателерді анықтау, бағдарламаны орындау т.б. жұмыстарды атқарады. Алгоритмдік тілдің бірнеше түрі бар. Олардың кейбіреулері ғана (мыс., алгол, кобол, лисп, Пл/1, Фортран, Паскаль т.б.) кең

1.

var a:array[1..6]of integer;

i,k:integer;

begin

k:=0;

write('Массив: ');  

for i:= 1 to 6 do  

begin

a[i]:= random(5);

write(a[i]:4);  

if a[i]=4 then k:=k+1

end;

writeln;

if k=0 then writeln ('В массиве нет элементов равных 4')

else writeln('Количество элементов равных 4 равно ',k)

end.

2.

var a:array[1..6,1..6]of integer;

b:array[1..36]of integer;

i,j,k,z,y,m:integer;

begin

k:=0;

writeln('Массив A ');  

for i:= 1 to 6 do  

begin

for j:= 1 to 6 do

begin

a[i,j]:= random(51);

write(a[i,j]:3);

end;

writeln;

end;

writeln;

k:=1;

for i:= 1 to 6 do  

begin

for j:= 1 to 6 do

begin

for z:=1 to 6 do

begin

for y:=1 to 6 do

begin

if (z<>i) and (y<>j) and (a[i,j] = a[z,y]) then

begin

b[k]:=a[i,j];

k:=k+1

end;

end;

end;

end;

end;

writeln('Массив B ');  

for i:= 1 to k-1 do write (b[i]:3);

writeln;

writeln;

m:=b[1];

for i:= 2 to k-1 do if b[i]>m then m:=b[i];

writeln('Максимум среди элементов повторившихся более одного раза в массиве А равен ',m);  

end.

Объяснение:

В массиве B во второй задаче находятся повторяющиеся элементы массива А.