заполнить массив из 10 целых чисел: 1) нулями 2)нулями кроме 1-го
Заполнить массив из 10 целых чисел: 1) нулями 2)нулями не считая 1-го и последнего 1-ое и посление =13) кратное 5 4)числа фибоначи
Задать свой вопрос1 ответ
Михаил
var a,b,c,d:array [1..10] of integer;
i,x,y,z:integer;
begin
for i:=1 to 10 do
begin
a[i]:=0;
if (i=1) or (i=10) then b[i]:=1 else b[i]:=0;
c[i]:=i*5
end;
for i:=1 to 10 do write (a[i],' ');
writeln;
for i:=1 to 10 do write (b[i],' ');
writeln;
for i:=1 to 10 do write (c[i],' ');
writeln;
x:=0;
y:=1;
d[1]:=x;
d[2]:=y;
for i:=3 to 10 do begin
d[i]:=x+y;
z:=y;
y:=x+y;
x:=z
end;
for i:=1 to 10 do write (d[i],' ');
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов