Program zhn;
type atype = array of Integer;
var
n,i:integer;
a:atype;
begin
write('Введите количество элементов в массиве: ');
readln(n);
SetLength(a,n);
for i:=0 to n-1 do begin
a[i]:=random(100);
if i mod 2 = 0 then writeln(i,') ',a[i]);
end;
end.
Второй вариант лалалалалала (просто ответ должен быть длинным)
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString.Reverse.Println
end.
<u>Пример</u>
рука
акур
#include <bits/stdc++.h>
using namespace std;
int Max_count(const vector<int> &a )
{
int result = 0;
for (int i = 0; i < a.size();++i )
if (a[i] == *max_element(a.begin(), a.end()))
result ++;
return result;
}
int main()
{
int n;
cin >> n;
vector<int> a(n);
for (int i = 0; i < n; ++i)
cin >> a[i];
cout << Max_count(a);
}
A) В минуте - 60 секунд. 25 минут = 1500 с.
15 Мбит/с. = 187,5 Мбайт/c.
1500 с x 187,5 Мбайт/c = 281 250 Мбайт
281 250 Мбайт = 281,25 Гбайт
б) 281,25 - 1 = 280,25 (за столько нужно будет заплатить)
280 250 x 5 = 1401250 коп.
1401250 коп. = 140 13 руб.