//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) const n = 10; type tabel = record f: string[20]; money: integer; end;
var a: array[1..n] of tabel; i, min, imin: integer;
begin min := a[1].money;imin := 1; for i := 1 to n do begin write('Введите Фамилию ',i,' сотрудника : '); readln(a[i].f); write(a[i].f,' получает :'); readln(a[i].money); if a[i].money < min then begin min := a[i].money;imin := i; end; end; writeln(a[imin].f, ' получает меньше всех '); end.
Тестовое решение: Введите Фамилию 1 сотрудника : Иванов Иванов получает :15000 Введите Фамилию 2 сотрудника : Петров Петров получает :12000 Введите Фамилию 3 сотрудника : Сидоров Сидоров получает :30000 Введите Фамилию 4 сотрудника : Железнов Железнов получает :75000 Введите Фамилию 5 сотрудника : Греков Греков получает :23000 Введите Фамилию 6 сотрудника : Смирнов Смирнов получает :34000 Введите Фамилию 7 сотрудника : Сурков Сурков получает :27000 Введите Фамилию 8 сотрудника : Водный Водный получает :14000 Введите Фамилию 9 сотрудника : Беляев Беляев получает :33000 Введите Фамилию 10 сотрудника : Жуков Жуков получает :17000 Петров получает меньше всех
{
программа, вычисляющая площадь прямоугольника.
}
var
a,b: real;
begin
write('Стороны прямоугольника ');
read(a,b);
writeln(' Площадь фигуры = ',a*b:10:3);
end.
Тестовое решение:
Стороны прямоугольника 5.3 6.7
Площадь фигуры = 35.510
{
С клавиатуры вводятся 3 целых числа.
Определить количество положительных чисел
в этом наборе.
}
var
a,i,n: integer;
begin
for i:=1 to 3 do begin
write(i,'число = ');readln(a);
if a>0 then n:=n+1;
end;
writeln(' Положительных :',n);
end.