begin Randomize; Write('Элементы массива: '); s := 0; for i := 1 to n do begin h[i] := (100 * Random - 50) / 3; Write(h[i]:0:3, ' '); if h[i] < 0 then s := s + h[i] end; Writeln(#13#10, 'сумма отрицательных элементов равна ', s:0:3) end.
Тестовое решение:
Элементы массива: 9.159 -12.427 11.448 -7.493 -12.976 -2.252 9.923 -4.759 -7.867 5.567 сумма отрицательных элементов равна -47.774
const m = 3; n = 4;
var h: array[1..m, 1..n] of real; i, j: integer; p: real;
begin p := 1; for i := 1 to m do begin Write('Введите через пробел элементы строки ', i, ': '); for j := 1 to n do begin Read(h[i, j]); if h[i, j] <> 0 then p := p * h[i, j] end end; Writeln('Произведение ненулевых элементов равно ', p:0:3) end.
Тестовое решение:
Введите через пробел элементы строки 1: -2.1 3.7 0.46 17 Введите через пробел элементы строки 2: -3.54 0 11.7 2.222 Введите через пробел элементы строки 3: 3 -5.1 -4.7 0 Произведение ненулевых элементов равно 402114.968
const n = 4;
var i, k: integer; d: array[1..n] of string;
begin k := 0; for i := 1 to n do begin Write('Введите слово ', i, ': '); Readln(d[i]); if (d[i][2]='о') then k:= k + 1 end; Writeln('Количество слов со второй буквой "о" равно ', k) end.
Тестовое решение:
Введите слово 1: Информатика Введите слово 2: Компьютер Введите слово 3: Процессор Введите слово 4: Монитор Количество слов со второй буквой "о" равно 2
const n = 4;
var i, imin: integer; A: array[1..n] of real; B: array[1..n] of string; min: real;
begin min := 1000; for i := 1 to n do begin Write('Введите фамилиию участника ', i, ': '); Readln(B[i]); Write('Введите время участника ', i, ': '); Readln(A[i]); if A[i] < min then begin min := a[i]; imin := i end; end; Writeln('Лучшее время ', a[imin], ' у участника ', b[imin]) end.
Тестовое решение:
Введите фамилиию участника 1: Иванов Введите время участника 1: 8.3 Введите фамилиию участника 2: Петров Введите время участника 2: 7.9 Введите фамилиию участника 3: Сидоров Введите время участника 3: 8.7 Введите фамилиию участника 4: Васечкин Введите время участника 4: 8.0 Лучшее время 7.9 у участника Петров
Var i, a, b, n, n2, j: longint; s: string; flag: boolean;
begin Write('Введите через пробел границы диапазона: '); Readln(a, b); if b < a then begin n := a; a := b; b := n end; if a < 11 then a := 11; for i := a to b do begin Str(i, s); n := Length(s); n2 := n div 2; flag := true; j := 1; repeat flag := (s[j] = s[n - j + 1]); j := j + 1 until (not flag) or (j > n2); if flag then Write(i, ' ') end; end.
n = 10;
var
h: array[1..n] of real;
i: integer;
s: real;
begin
Randomize;
Write('Элементы массива: ');
s := 0;
for i := 1 to n do
begin
h[i] := (100 * Random - 50) / 3;
Write(h[i]:0:3, ' ');
if h[i] < 0 then s := s + h[i]
end;
Writeln(#13#10, 'сумма отрицательных элементов равна ', s:0:3)
end.
Тестовое решение:
Элементы массива: 9.159 -12.427 11.448 -7.493 -12.976 -2.252 9.923 -4.759 -7.867 5.567
сумма отрицательных элементов равна -47.774
const
m = 3;
n = 4;
var
h: array[1..m, 1..n] of real;
i, j: integer;
p: real;
begin
p := 1;
for i := 1 to m do
begin
Write('Введите через пробел элементы строки ', i, ': ');
for j := 1 to n do
begin
Read(h[i, j]);
if h[i, j] <> 0 then p := p * h[i, j]
end
end;
Writeln('Произведение ненулевых элементов равно ', p:0:3)
end.
Тестовое решение:
Введите через пробел элементы строки 1: -2.1 3.7 0.46 17
Введите через пробел элементы строки 2: -3.54 0 11.7 2.222
Введите через пробел элементы строки 3: 3 -5.1 -4.7 0
Произведение ненулевых элементов равно 402114.968
const
n = 4;
var
i, k: integer;
d: array[1..n] of string;
begin
k := 0;
for i := 1 to n do
begin
Write('Введите слово ', i, ': ');
Readln(d[i]);
if (d[i][2]='о') then k:= k + 1
end;
Writeln('Количество слов со второй буквой "о" равно ', k)
end.
Тестовое решение:
Введите слово 1: Информатика
Введите слово 2: Компьютер
Введите слово 3: Процессор
Введите слово 4: Монитор
Количество слов со второй буквой "о" равно 2
const
n = 4;
var
i, imin: integer;
A: array[1..n] of real;
B: array[1..n] of string;
min: real;
begin
min := 1000;
for i := 1 to n do
begin
Write('Введите фамилиию участника ', i, ': ');
Readln(B[i]);
Write('Введите время участника ', i, ': ');
Readln(A[i]);
if A[i] < min then begin min := a[i]; imin := i end;
end;
Writeln('Лучшее время ', a[imin], ' у участника ', b[imin])
end.
Тестовое решение:
Введите фамилиию участника 1: Иванов
Введите время участника 1: 8.3
Введите фамилиию участника 2: Петров
Введите время участника 2: 7.9
Введите фамилиию участника 3: Сидоров
Введите время участника 3: 8.7
Введите фамилиию участника 4: Васечкин
Введите время участника 4: 8.0
Лучшее время 7.9 у участника Петров