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

Question

66

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

alexnet · Accepted Answer

52

alexnet

16 августа 2022

var a: array [1… 9] integer; i: integer; begin for i: =1 to 9 do if i mod 3=1 then a[i]: =i else if i mod 3=2 then a[i]: =sqr (i — 1) else a[i]: =a[i — 1] div i; for i: =1 to 9 do write (a[i], '); end. var b, a: array [1… 15] of integer; i, sa, sb: integer; begin randomize; sa: =0; sb: =0; for i: =1 to 15 do begin a[i]: =trunc (random (100)+1; write (a[i], '); sa: =sa+a[i]; end; writeln; for i: =1 to 15 do begin b[i]: =sqr (a[i]) — a[i]); write (b[i], '); sb: =sb+b[i]; end; writeln; writeln (abs (sb — sa); end.

комментировать

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

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: