Сформируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлены по следующему правилу: 1-й равен квадрату текущего индекса 2-й равен случайному числу 3-й равен полусумме двух предыдущих элементов
// PascalABC.NET 3.2, сборка 1389 от 01.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:array[1..9] of real; randomize; for var i:=1 to 9 do begin case i mod 3 of 1:a[i]:=i*i; 2:a[i]:=random(1,50); else a[i]:=(a[i-2]+a[i-1])/2 end; Write(a[i],' ') end; Writeln end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:array[1..9] of real;
randomize;
for var i:=1 to 9 do begin
case i mod 3 of
1:a[i]:=i*i;
2:a[i]:=random(1,50);
else a[i]:=(a[i-2]+a[i-1])/2
end;
Write(a[i],' ')
end;
Writeln
end.
Пример
1 44 22.5 16 16 10 49 39 23