1 Задание: сформируйте и выведите на экран массив из девяти элементов…

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

в избранное

budge

07 сентября 2022

uses crt; vara: array [1… 9] of integer; i,c,m,n: integer; b: real; beginclrscr; randomize (); c: =1; for i: =1 to 9 dobeginif i=c thenbegina[i]: =i+3; c: =c+3; endelsebeginif i mod 3=0 then a[i]: =a[i-1]+a[i-2] else a[i]: =sqr (i-1); end; write (a[i],'); end; readln (); end. uses crt; var x,y,s,i,j: integer; a: array [1… 15] of integer; beginclrscr; randomize (); writeln ('Vvedite chislo'); readln (x); writeln ('Ishodniy'); for i: =1 to 15 dobegina[i]: =random (100); write (a[i],'); end; writeln; writeln; writeln ('Ispravlenniy'); for i: =1 to 15 dobeginif a[i]+i комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?