Определить минимальный размер стипендии в каждой группе Фамилия Имя Группа Год рождения Размер стипендии
1 Алексеева Анна 211 12.12.1989 450,00 ₽
2 Денисов Дмитрий 212 23.11.1990 460,00 ₽
3 Ермакова Яна 213 09.07.1991 500,00 ₽
4 Жукин Иван 211 01.01.1989 470,00 ₽
5 Зайцев Михаил 213 05.10.1990 600,00 ₽
6 Ильина Галина 213 07.07.1990 800,00 ₽
7 Майорова Ирина 212 25.03.1991 850,00 ₽
8 Макарова Мария 211 19.05.1989 600,00 ₽
9 Маклакова Эвелина 213 20.09.1989 600,00 ₽
10 Петрова Вера 213 21.10.1990 550,00 ₽
11 Семенов Петр 213 29.11.1989 640,00 ₽
12 Синицина Марина 212 08.02.1991 700,00 ₽
13 Смирнов Александр 212 04.04.1990 750,00 ₽
14 Фишкин Алексей 211 11.11.1991 450,00 ₽
15 Фоминых Павел 211 25.05.1989 550,00 ₽
begin
var n:=ReadInteger('Количество элементов в массиве: ');
var a:=ArrRandom(n,-50,50);
a.Println(',');
Writeln('Четные элементы: ');
var i:=1;
while i<n do begin Write(a[i],' '); Inc(i,2) end;
Writeln;
Writeln('Нечетные элементы: ');
i:=0;
while i<n-1 do begin Write(a[i],' '); Inc(i,2) end;
Writeln
end.
Тестовое решение:
Количество элементов в массиве: 10
15,-18,-29,-25,46,21,-8,-17,-9,15
Четные элементы:
-18 -25 21 -17 15
Нечетные элементы:
15 -29 46 -8 -9
второе - вещественный
разные диапазоны
2.1) s := (x1+x2)/2
2) dec(k) или k:=k-1
3) inc(i) или i:=i+1
4) sum := t*kt + r*kr + k*kk (t, r, k - цена одной тетради, ручки, карандаша; kt, kr, kk - количество тетрадей, ручек и карандашей)
2.
а) значения функции y=х(в квадрате)
var y,x: real
б) площади прямоугольника
var a,b,s: real
в)стоимости покупки,состоящей из нескольких тетрадей и такого же кол-ва обложек
var kv:integer; st,so,sum: real
г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей
var kvt,kvr,kvk:integer; st,sr,sk,sum: rea