Скласти програму (в зошиті або в обраному середовищі програмування) до однієї із задач: 1)Створіть масив із 10 випадкових чисел у діапазоні від 5 до 69 і визначити серед них максимальне та мінімальне значення елемента.
2)Створити одновимірний масив довільних чисел з діапазону від -10 до 15 . Знайти всі від’ємні елементи та замінити їх на протилежні . Підрахувати кількість від’ємних елементів.
Биопечать происходит с использованием специально разработанных 3D-биопринтеров, подобно тому, как печатают на 3D-принтерах различные детали — послойно, по цифровой трехмерной модели. Картриджи принтеров при этом заправляют сфероидами — конгломератами клеток, которые наносят на специальную подложку — своеобразную биобумагу. Напечатав один слой из клеточных сфероидов, сверху наносят второй, который срастается с первым. Так постепенно получают объемный живой объект — ткань или орган. 3D-печать имеет огромный потенциал в медицине. С этих технологий можно воспроизводить высокоточные трехмерные модели человеческих органов, а также некоторые имплантаты. Разработчики подобных технологий стремятся к созданию органов в реальном времени.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var current, past, sum: real;
i, n: integer;
begin
current : = 10;
for i : = 1 to 10 do begin
writeln(i, ' ', current);
past : = current;
current : = current * 1.1;
end;
current : = 10; sum : = 0;
write('n = ');
read(n);
for i : = 1 to n do begin
sum : = sum + current;
past : = current;
current : = current * 1.1;
end;
writeln('за ', n, ' дней: ', sum);
end.