1 Кбайт
1200 байт
3 Мбайта
7500 Кбайта
0,001 Гбайт
3 Мбайта
Http://hastebin.com/wirawunihu.vala
По ссылке код. Отвечу на любые вопросы)
Как я понял , это оно !
https ://www. youtube.com/playlist?list=PLP6-uXxKE5Nuvajs8J9NeuoaPRGZwUlaG
var
a:array[1..100] of real;
i, n:integer;
begin
write('Введите количество элементов '); readln(n);
for i := 1 to n do
begin
write('a[', i ,'] = ');
readln(a[i]);
end;
writeln;
writeln('Исходный массив:');
for i := 1 to n do
begin
write(a[i], ' ');
if i mod 2 = 1 then
a[i] := sqrt(a[i]);
end;
writeln;
writeln;
writeln('Преобразованный массив:');
for i := 1 to n do
write(a[i]:0:2, ' ');
writeln;
end.
<span>7 - ответ ТААУТАТ
8 - ответ 8</span>