Написать програму на паскале
Из букв слова s получить новое слово s1, переставив все буквы “а” в начало. Пример: s=каравай → s1=ааакрвй.

131

491

Посмотреть ответы 1

Ответы на вопрос:

rafaelkhasanov

Информатика

4,4(82 оценок)

Program task31133707; var arr: array of integer; a, valueofnumbers, choise, k: integer; begin writeln('введите размерность массива: '); readln(valueofnumbers); setlength(arr, valueofnumbers); writeln('введите число a: '); readln(a); writeln('как заполнить массив? случайными числами (0) или с клавиатуры? (1)'); readln(choise); if choise = 0 then for var i : = 0 to valueofnumbers - 1 do begin var tmpnumber : = random(valueofnumbers + 1) + 1; if tmpnumber < a then continue else begin arr[i] : = tmpnumber; inc(k); end; end else for var i : = 1 to valueofnumbers do begin var tmpnumber : = 1; readln(tmpnumber); if tmpnumber < a then continue else begin arr[i] : = tmpnumber; inc(k); end; end; writeln('исходный массив: '); for var i : = 1 to k do if arr[i] = 0 then continue else write(arr[i], ' '); writeln('количество элементов массива: ', k); end.