Var a,b: integer;var M: array[1..10] of integer;begina:=1;while a<>1000 do beginreadln(a);b:=b+1;if a mod 10 = 5 then M[b]:=a;end;writeln(M[1]+M[2]+M[3]+M[4]+M[5]+M[6]+M[7]+M[8]+M[9]+M[10]);<span>end.</span>
Var i,s: integer; a:array[1..20] of integer;
begin
s:=1;
randomize;
for i := 1 to 20 do
a[i] := random(45)-20;
for i:=1 to 20 do
begin
i:=i+1;
s:=s*i;
end;
write(s);
end.
проверяй в компиляторе, где-то накосячил
<span>Графи́ческий <span>интерфе́йс по́льзователя</span></span><span> (</span>ГИП<span>), </span><span>графическийпользовательский интерфейс</span><span> (</span>ГПИ) (<span>англ.</span> <span>Graphical user interface, GUI</span><span>; </span><span>сленг.</span> ГУИ<span>, </span>ГУЙ<span>) — </span>системасредств для взаимодействия пользователя с компьютером<span>, </span>основанная на представлении всех доступныхпользователю системных объектов и функций в виде графических компонентов экрана<span> (</span>окон<span>, </span>значков<span>, </span>меню,кнопок<span>, </span>списков и т. п<span>.). </span>При этом<span>, </span>в отличие от <span>интерфейса командной строки</span><span>, </span>пользователь имеетпроизвольный доступ<span> (</span>с помощью клавиатуры или <span>указательного устройства ввода</span><span>) </span>ко всем видимымэкранным объектам<span> — </span><span>элементам интерфейса</span><span>, </span>а на экране реализуется модель мира в соответствии снекоторой метафорой и осуществляется прямое манипулирование<span>.</span>
N = int (input ())
MAS = list (map (int, input().split()))
X = int(input())
answ = 0
for elem in MAS:
if elem == X:
answ += 1
print (answ)
Var a:string; i,d:integer;
Begin
Readln (a);
d:=length (a);
For i:=1 to d do
If a[i]='A' then a[i]:='B';
Writeln (a);
end.
