Напишите программу формирования и вывода массива произвольного размера так, чтобы каждый последующий элемент, начиная с третьего, был равен сумме двух предыдущих элементов. Два первых элемента задайте с клавиатуры. Напишите пр...
Напишите программу формирования и вывода массива произвольного размера так, чтобы каждый последующий элемент, начиная с третьего, был равен сумме двух предыдущих элементов. Два первых элемента задайте с клавиатуры.
Напишите программу формирования и вывода массива размером 6х3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
1-й - равен случайному числу, отличному от нуля;
2-й - равен квадрату предыдущего элемента;
3-й - равен целой части частного от деления двух предыдущих элементов.
Гость
Ответ(ы) на вопрос:
Гость1. var a:array [1..100] of integer;
i,n:integer;
begin
read(n); {количество эл. массива}
read (a[1], a[2]);
for i:=3 to n do
a[i]:=a[i-1]+a[i-2];
for i:=1 to n do
write (a[i],' ' );
end.
2.const m=6;n=3;
var a:array [1..100,1..100] of integer;
i,j:integer;
begin
for i:=1 to m do
read (a[i,1]);
for i:=1 to m do
begin
j:=1;
a[i,j+1]:= sqr(a[i,j]);
a[i,j+2]:= a[i,j] div a[i,j+1]; {это условие мне не совсем понятно}
end;
for i:=1 to m do
begin
for j:=1 to n do
write (a[i,j]:3);
writeln;end;
end.
Не нашли ответ?
Похожие вопросы