<span><span>2 : if ((year mod 4) = 0) and ((year mod 400) <> 0) then</span><span> DneyVMecyace := 29</span><span>
else</span><span>
DneyVMecyace := <span>28
вот
</span></span></span>
Ответ:ты решил? мне очень соочно надо. Хотя бы слово, которое получлось. я сижу на этой олимпиаде и тулб
Объяснение:
Uses crt;
const n=5;
var
s:array[1..n] of string;
i,j,c:integer;
ss:string;
begin
writeln('Введите :');
for i:=1 to n do begin
write('s[',i,']=');
readln(s[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if s[i]>s[j] then
begin
ss:=s[i];
s[i]:=s[j];
s[j]:=ss;
end;
for i:=1 to n do
writeln(i,'.',s[i],' ');
<span>end.</span>
Алг массив
нач
цел N = 15
целтаб a[1:N]
цел i
нц для i от 1 до N
a[i] := irnd(0,100)
вывод a[i], " "
кц
вывод нс
a[2] := 0
a[14] := 0
нц для i от 1 до N
вывод a[i], " "
кц
кон