Var
f:Text;
n,k:integer;
begin
Assign(f,'input.txt');
Reset(f);
n:=0;
while not Eof(f) do begin Read(f,n); Inc(k) end;
Close(f);
Assign(f,'output.txt');
Rewrite(f);
Writeln(f,k); Writeln(k);
Close(f)
end.

0 0

4 года назад

Заполните массив согласно условию: если индекс элемента массива (i) нечетный, то значение элемента должно находится по формуле i

Наталия Тутаева [116]

<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>

begin

var n := ReadInteger('Количество элементов в массиве:');

var a := ArrGen(n, i -> i.IsEven ? 2 * i + 3 : 1);

a.Println

end.

<h3>Количество элементов в массиве: 13</h3><h3>3 1 7 1 11 1 15 1 19 1 23 1 27</h3>

0 0

4 года назад

Прочитать ещё 2 ответа

ПРОГРАММА В ПАСКАЛЬ АВС 6 ЗАДАНИЕ

Риттта [12]

Если между z и a умножение:
var z:array[1..13] of integer;
s,i:integer;
begin
s:=0;
for i:=1 to 13 do read(z[i]);
for i:=1 to 13 do
if i=5 then s:=s+z[i]*2
else if i=7 then s:=s+z[i]*4
else if i=10 then s:=s+z[i]*i
else s:=s+z[i]*z[i];
writeln(s);
end.

0 0

4 года назад

Помогите,пожалуйста))) Мне в паскале абц надо нарисовать кораблик разными цветами Но не закрашивать его Очеееень нужно)) ПОжалуй

Ольга108

Программа находится в прикрепленном файле.

0 0

4 года назад