Что тут не так .и если не сложно исправьте 90 за ! var a: array [1..20] of integer; i,j,k: integer begin - id825492220221111 от jepa1 11.11.2022 21:27

Question

Информатика: Что тут не так .и если не сложно исправьте 90 за ! var a: array [1..20] of integer; i,j,k: integer begin for i: =1 to 20 do begin read(a[i]); end; j: =0; k: =0; for i: 1 to 20 do if a[i] mod3=0 then j: =j+1 or a[i+1] mod3=0 then j: =j+1; k: =a[i]; a[i]: =a[i+1]; a[i+1]: =k wrineln [j]; end

jepa1 · Accepted Answer

:D
Ну го Ничего если на паскале напишу ?
uses crt;
var a:array[1..50] of integer ;i,j,n,x,t,k:integer;b:string;
begin
read(n);
for i:= 1 to n do
begin
a[i]:=random(15);
write(a[i],' ');
end;
writeln;
for i:= 1 to n-1 do
for j:= i+1 to n do
if a[i]> a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
for i:= 1 to n do
write(a[i],' ');
writeln;
read(x);
for i:= 1 to n do
if a[i] = x then k:=k+1;
str(k,b);
n:=length(b);
if k in [11..19] then write (k,' раз') else
if k = 0 then write('число ',x,' не встречается ')else
case b[n] of
'0','1','5','6','7','8','9': write (k,' раз');
'3','4','2': write (k,' раза') ;
end;
end.

MOGZ ответил