Program hhh54;
var i,n,x:longint;
a: array [1..100000] of longint;
begin
read (n);
a[1]:=1;
a[2]:=1;
for i:= 3 to n do
begin
a[i]:=a[i-1]+a[i-2];
write (a[i]);
end;
end.

0 0

4 года назад

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

Напишите программу, которая вычисляет сумму элементов, удовлетворяющих условию: 5<элемент массива<19. Срочно!

Natalija1989

3) var a:array [1..1000] of longint; n,k,i:integer;
begin 
readln(n); k:=0;
for i:=1 to n do
read (a[i]);
for i:=1 to n do
if (a[i]>5) and (a[i]<19) then k:=k+a[i];
writeln(k);
readln; end.

0 0

4 года назад

HELP!!! Заменить значения всех элементов главной диагонали массива на нулевые

Флина Тач [1]

Const z = 50;
var A:Array[1..z,1..z] of integer;
n,i,j:integer;
begin
write('Введите размер массива ');
readln(n);
for i:=1 to n do
beginfor j:=1 to n do
begin
A[i,j]:= random(100)-50;
write(A[i,j]:4);
end;
writeln;
end;
writeln;writeln;
for i:=1 to n do
beginfor j:=1 to n do
begin
if i=j then
A[i,j]:=0;
write(A[i,j]:4);
end;
writeln;
end;end.

0 0

4 года назад

В жизни человека звук представляется в а)дискретной цифровой форме; б)непрерывной аналоговой форме; в)звуковой форме; г)электрич

lucy chan

Ответ:

<h2>В жизни человека звук представляется в  ЗВУКОВОЙ ФОРМЕ</h2>

0 0

4 года назад