var a: array[1..n] of integer; i, k, p, max: integer;
begin Randomize; Write('Введите число К: '); Readln(k); Write('Элементы массива: '); p := 0; for i := 1 to n do begin a[i] := Random(101)-50; Write(a[i]:5); if a[i] > k then p := p + 1; end; Writeln(#13#10, 'Количество элементов, больших ', k, '=', p); max := -32768; for i := 1 to n do begin a[i] := 3 * a[i]; if max < a[i] then max := a[i] end; if max > 0 then Writeln('Максимальный элемент массива равен ', max) else Writeln('В массиве нет положительных элементов') end.
Тестовое решение: Введите число К: 25 Элементы массива: -10 43 -6 8 -4 39 26 -30 -33 -10 -34 -4 Количество элементов, больших 25=3 Максимальный элемент массива равен 129
begin Write('Введите слово: '); Readln(s1); n := Length(s1); i := n div 2; s2 := Copy(s1, i + 1, n - i) + Copy(s1, 1, i); Writeln('А вот перестановка его частей: ', s2) end.
Тестовое решение: Введите слово: тестирование А вот перестановка его частей: ованиетестир
var s: string; i, n, c1, c2, c3, c4: integer;
begin Write('Введите строку: '); Readln(s); n := Length(s); c1 := 0; c2 := 0; c3 := 0; c4 := 0; for i := 1 to n do case s[i] of '*': c1 := c1 + 1; 'D': c2 := c2 + 1; 'F': c3 := c3 + 1; 'H': c4 := c4 + 1 end; Writeln('В строке встретилось следующее количество символов:'); Writeln('*-', c1, ', D-', c2, ' F-', c3, ' H-', c4) end.
Тестовое решение: Введите строку: WHY DO YOU CRY, WILLI, WHY DO YOU CRY? В строке встретилось следующее количество символов: *-0, D-2 F-0 H-2
begin Write('Введите строку: '); Readln(s1); n := Length(s1); s2 := ''; for i := 1 to n do if not (s1[i] in digits) then s2 := s2 + s1[i]; s1 := s2; Writeln('Строка с исключенными цифрами: ', s1); end.
Тестовое решение: Введите строку: Сегодня в 14:52 я получил сообщение, что телепередача в 21:50 не будет интересной. Строка с исключенными цифрами: Сегодня в : я получил сообщение, что телепередача в : не будет интересной.
n = 12;
var
a: array[1..n] of integer;
i, k, p, max: integer;
begin
Randomize;
Write('Введите число К: ');
Readln(k);
Write('Элементы массива: ');
p := 0;
for i := 1 to n do
begin
a[i] := Random(101)-50;
Write(a[i]:5);
if a[i] > k then p := p + 1;
end;
Writeln(#13#10, 'Количество элементов, больших ', k, '=', p);
max := -32768;
for i := 1 to n do
begin
a[i] := 3 * a[i];
if max < a[i] then max := a[i]
end;
if max > 0 then Writeln('Максимальный элемент массива равен ', max)
else Writeln('В массиве нет положительных элементов')
end.
Тестовое решение:
Введите число К: 25
Элементы массива: -10 43 -6 8 -4 39 26 -30 -33 -10 -34 -4
Количество элементов, больших 25=3
Максимальный элемент массива равен 129