type z=array of integer;
var a: z;
i,j,k: integer;
begin
setlength(a,1);
readln(a[0]);
i:=1;
while(a[i-1]<>0) do
begin
setlength(a,i+1);
readln(a[i]);
i:=i+1;
end;
setlength(a,length(a)-1);
for i:=0 to length(a) do
for j:=0 to length(a)-2 do
if (a[j] < a[j+1]) then
begin
k:=a[j];
a[j]:= a[j+1];
a[j+1]:=k;
end;
write(a[0],'; ',a[1],'; ',a[2],'; ',a[3]);
end.
Алг
нач
цел n, a, Max
вывод "n = "
ввод n
ввод Max
нц для n от 1 до n-1
ввод a
если a > Max то Max:=a
всё
кц
вывод "Max = ", Max
кон
Сочные:вишня,яблоко,крыжовник,томат.
сухие:двухкрылатка,мак,пшеница,подсолнечник,орех.
X>0 правда т.к х ровно 1, а 1 больше 0
у>0 правда т.к у ровно 1, а 1 больше 0
выполняем z присвоить 1
Ответ 1
Где и на кого учишься, если на программиста уходи пока не поздно, иначе компы всяким бабкам за 5 копеек чинить будешь. Не в обиду конечно.