Если я тебя понял правильно делается запрос на имя Елена и дату рождения 1989 и выдается количество подходящих под запрос в твоем случае таких четверо ответ номер 4 (4 подходящих)
Program prl;
uses crt;
var i,n,summa:integer;
srednee:real;
a:arra[1..100] of integer;
begin
write('Введите кол-во четных элементов');
readln(n);
summa:=0;
for i:=1 to n do begin
write('Введите ',i,' элемент:');
readln(A[i]);
summa:=summa+A[i];
end;
srednee:=summa/(n div 2);
writeln('Среднее арифметическое',srednee:3:2);//
readln;
end.
Найди лишнее десятичное число и зачеркни. 23, 53, 73, 37,83 17, 20,21,37,99 40, 44, 48, 88, 42
060владислав
37 ( все, кроме него заканчиваются на 3)
20 ( единственное чётное)
42 ( не делится на 4, а все остальные делятся на 4)
//PascalABC.Net 3.1 сборка 1200
begin
var a:=ArrRandom(20,-50,50);
Writeln('Отрицательных чисел ', a.Where(x->x<0).Count);
Writeln('Минимальный элемент ', a.Min);
end.
Var
a, b: array [1..3] of real;
r: real;
begin
writeln('Введите углы (A, B, C), затем - радиус');
readln(a[1], a[2], a[3], r);
b[1] := r * 2 * sin(a[1]);
b[2] := r * 2 * sin(a[2]);
b[3] := r * 2 * sin(a[3]);
writeln('a = ', b[1]);
writeln('b = ', b[2]);
writeln('c = ', b[3]);
end.