• Напишите программу формирования и вывода массива произвольного размера так, чтобы каждый последующий элемент, начиная с третьего, был равен сумме двух предыдущих элементов. Два первых элемента задайте с клавиатуры.

    Напишите программу формирования и вывода массива размером 6х3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
    1-й - равен случайному числу, отличному от нуля;
    2-й - равен квадрату предыдущего элемента;
    3-й - равен целой части частного от деления двух предыдущих элементов.

Ответы 1

  • 1. var a:array [1..100] of integer;i,n:integer;beginread(n); {количество эл. массива}read (a[1], a[2]);for i:=3 to n doa[i]:=a[i-1]+a[i-2];for i:=1 to n dowrite (a[i],' ' );end.2.const m=6;n=3;var a:array [1..100,1..100] of integer;i,j:integer;beginfor i:=1 to m doread (a[i,1]);for i:=1 to m dobeginj:=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 dobeginfor j:=1 to n dowrite (a[i,j]:3);writeln;end;end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years