Sub maxZn()'заполнение массива Dim mas(20) S = "" Randomize For i = 1 To 20 mas(i) = Round(Rnd(100) * 100) S = S + Str(mas(i)) + "," Next i'поиск максимального числа и количества его повторений qty = 1 max = mas(1) 'предполагаем, что максимальное число в первом элементе массива For i = 2 To 20 If mas(i) = max Then qty = qty + 1 End If If mas(i) > max Then max = mas(i) qty = 1 End If Next i MsgBox "последовательность чисел " + S MsgBox "максимальное число " + Str(max) + "число повторений " + Str(qty) End Sub Sub test() Call maxZnEnd Sub
var
slovo,slovo2:string;
simvol:Char;
a,ampirmetr:integer;
begin
readln (slovo);
a:=Pos(',',slovo);
ampirmetr:=length(slovo);
if a = 0 then writeln ('No data')
else begin
a:=a+1;
ampirmetr:=ampirmetr-a+1;
slovo2:=copy(slovo,a,ampirmetr);
writeln(slovo2);
end;
readln;
end.
Объяснение:
Имеется проверка на запятую.
В начале вводите текст с запятой, затем выполняется вывод текста после запятой (1 раз)