Program Pr1;
uses crt;
const n=100;
m=100;
var mas:array[1..n,1..m] of integer;
i,j,l,k,v:integer;
Begin
clrscr;
for j:=1 to m do
for i:=1 to n do begin
randomize;
mas[i,j]:=random(100);
end;
l:=0;v:=0;
for j:=1 to m do
for i:=1 to n do begin
k:=1;
while k<=m do if k=m then k:=k+1
else begin
l:=mas[i,k]+l;
k:=k+1;
end;
if mas[i,j]>l then v:=v+1;
l:=0;
end;
writeln(v);
end.
Напиши как приготовить яишницу и все
Выделяешь поля, из которых нужно вычислить средний бал, жмякаешь на выделенную синим цветом кнопочку и выбираешь СРЗНАЧ, жмякаешь ОК)
Const
s1='abcdefghijklmnopqrstuvwyz x.';
s2='*
[email protected]#%&)(`~^\/}{][:;><? ,.';
var a:string; c:char; i:integer;
begin
Writeln ('Hello! What do you want from me? It is that what I can:');
writeln('1)translate message encrypted by me (enter 1) or encrypt message inputted by me (enter 2)');
readln (c);
if c = '2' then
begin
writeln('enter your message');
readln(a);
for i := 1 to length(a) do
if pos(a[i],s1)>0 then a[i]:=s2[pos(a[i],s1)]
end
else // if c = '1' then
begin
writeln('enter my message');
readln(a);
for i := 1 to length(a) do
if pos(a[i],s2)>0 then a[i]:=s1[pos(a[i],s2)]
end;
writeln(a);
end.
Пример:
<span>Hello! What do you want from me? It is that what I can:
1)translate message encrypted by me (enter 1) or encrypt message inputted by me (enter 2)
2
enter your message
privet
/{&;![</span>
Панда """"""""""""""""""""""""≠