ЧТО ОЗНАЧАЕТ ЭТА ПРОГРАММА НА ПАСКАЛЕ const n=10; var A: array [1..n] of integer; i: integer; s: real; begin for I:=1 to n do read (A[i]); s:=0; for I:=1 to N do if A[I] mod 2=0 then s:=s+1; s:=s*100/n; writeln(s) end.
P.s Когда начнёшь выполнять команду, у тебя будет просто черный экран, вводишь первое число которое тебе нужно, нажимаешь на Enter, потом второе Enter, третье Enter.
1)var a:array[1..3,1..3] of integer; b:array[1..3,1..3] of integer; c:array[1..3,1..3] of integer; i,j:integer; begin; writeln('A array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; a[i,j]:=random(10)-10; write(a[i,j]:4); end; end; writeln; writeln('B array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; b[i,j]:=random(-10,10); write(b[i,j]:4); end; end; writeln; writeln('C array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; c[i,j]:=a[i,j]*b[i,j]; write(c[i,j]:4); end; end; end. 2)var a:array[1..1000,1..1000] of integer; i,j,k,n,u:integer; begin; randomize; readln(n); writeln('A array:'); for i:=1 to n do begin; writeln; for j:=1 to n do begin; a[i,j]:=random(10)-10; write(a[i,j]:4); end; end; for i:=1 to n do begin; for j:=1 to n do u+=a[i,j]; if u<0 then inc(k); u:=0; end; writeln; write('Result:',k); end.
1) a=int(input())
b=int(input())
c=int(input())
print((a+b+c)/3)
P.s Когда начнёшь выполнять команду, у тебя будет просто черный экран, вводишь первое число которое тебе нужно, нажимаешь на Enter, потом второе Enter, третье Enter.
2)a=('Иванов', 'Смирнов', 'Кузнецов', 'Попов', 'Васильев', 'Петров', 'Соколов', 'Михайлов', 'Новиков', 'Федоров')
a=sorted(a)
print(a)
3) a=('41', '23', '77', '72', '11', '45', '81', '74', '18', '50')
a=sorted(a)
print(a)
print(min(a))
print(max(a))
Я орну если ты из 208 школы
4) А вот это хз