1.
Самый высокий - Евгений. Самый низкий - Николай.
2.
У Ани белая. У Маши синяя. У Вари красная.
4.
У Яши флешка 8 гб.
У Алины в 2 раза больше т.е. 16 гб.
У Марата 4/3 от их суммы т.е. (16+8)/3*4=32 гб.
5.
1) арена
2) телевизор
Внутренним железом - хотя бы для того, чтобы его запустить.Операционной системой - чтобы на нем можно было хоть что-то делать.Монитором - чтобы видеть, что происходит.Мышью и клавиатурой - для удобства использования.
Program p1;
var sr,sr1:real;
p,i:integer;
begin
Write('Введите число учащихся: ');
Readln(p);
sr:=0;
sr1:=0;
for i:=1 to p do
begin
Write('Введите средний балл ученика: ');
readln(sr1);
sr:=sr+sr1;
end;
Writeln('Средний балл группы равен: ',sr/p);
<span>end.</span>
Var
mas:array[1..100] of integer;
min,i:integer;
begin
for i:=1 to 10 do
read(mas[i]);
min:=mas[1];
for i:=2 to 10 do
if mas[i]<min then
min:=mas[i];
mas[10]:=min;
for i:=1 to 10 do
write(mas[i],' ');
end.