1)Есептеу құралы қалай аталады? 2) Есептеу құралы қалай аталады? 3) 1642 жылы «Паскалин» деп аталатын - id1372356720200710 от лол1570 10.07.2020 05:18

Question

Информатика: 1)Есептеу құралы қалай аталады? 2) Есептеу құралы қалай аталады? 3) 1642 жылы «Паскалин» деп аталатын есептеуіш машинаны жасаған кім? 4) Есептеу құралы қалай аталады? 5) Алдын ала берілген программа бойынша жұмыс істейтін аналитикалық машинаның авторы кім?​

лол1570 · Accepted Answer

Const n=20;
type omas=array[1..n] of integer;
Procedure Del (var z:omas; k:byte);
var i:byte;
begin
for i:=k to n-1 do z[i]:=z[i+1];
z[n]:=0;
end;
var a:omas; i,b:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i]:4);
end;
writeln;
b:=6;
i:=1;
while (i<=n)and(a[i]<>b) do i:=i+1;
if i<=n then
begin
Del(a,i);
writeln('Размерность массива = ',n-1);
for i:=1 to n-1 do write(a[i]:4);
writeln;
end else writeln('Массив не изменился');
end.
Пример:
12 13 6 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18
Размерность массива = 19
12 13 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18

MOGZ ответил