<span><span /><span><span>
Имя
Возраст
Хобби
</span><span>
Оля
13
пение
</span><span>
Петя
14
баскетбол
</span><span>
Вася
13
хоккей
</span><span>
Катя
15
танцы
</span><span>
Сережа
11
футбол
</span><span>
Коля
11
<span>баскетбол
и оформить в эксель</span></span></span></span>
Const
N = 30;
Var
a: array [1..N] of integer;
MaxEv, MaxOdd, I: integer;
begin
for i := 1 to N do
begin
write('a[', i , '] = ');
readln(a[i]);
end;
MaxEv := 0;
MaxOdd := 0;
For I := 1 to N do { перебираем все элементы массива}
if a[i] mod 2 = 0 then { проверяем делится ли текущий элемент на 2 без остатка}
begin
if a[i] > MaxEv then {если да, то проверяем больше ли найденного до этого наибольшего четного}
MaxEv := a[i]; {присваиваем новое наибольшее четное значение}
end
else
if a[i] > MaxOdd then {если нет, то проверяем больше ли найденного до этого наибольшего нечетного}
MaxOdd := a[i]; {присваиваем новое наибольшее нечетное значение}
Writeln ('MaxEv - MaxOdd = ', MaxEv, ' - ', MaxOdd, ' = ', MaxEv - MaxOdd);
end.
#include <iostream>
using namespace std;
int main()
{
int n, s1 = 0, s2 = 0, n1 = 0, n2 = 0;
cin >> n;
int a[n];
srand(time(0)); // инициализируем датчик
for(int i=0; i<n; i++)
{
a[i] = rand() % 101;
cout << a[i] << " ";
if(a[i] < 50)
{
n1++;
s1 += a[i];
}
else
{
n2++;
s2 += a[i];
}
}
double m1 = double(s1) / n1;
double m2 = double(s2) / n2;
cout << endl << m1 << " " << m2;
return 0;
}
Begin
var s:=readlnstring;
var gl:='АЕИОУЫЯЁЮЭ';
var m:=s.ToWords;
var k:=m.Length;
var b:=new integer[k];
for var i:=0 to k-1 do
b[i]:=m[i].Where(c->c.ToUpper in gl).Count;
Writeln(m[b.IndexMax])
end.
Емкось жесткого диска варьируется от 128 гигабайт до 4 терабайт.
Емкость CD дисков около 700 мегабайт.
Емкость DVD дисков около от 4 Гб до 7 Гб.
Емкость flash накопителей примерно от 128 мегабйт до 2 терабайт.
<span>Емкость blue-ray дисков от 25 гб до 50 гб.</span>