profile
Опубликовано 5 лет назад по предмету Информатика от Lolita100032

сформулируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлен по следующему правилу: первый равен 1,второй квадрату предыдущего,третий random(10)

  1. Ответ
    Ответ дан ИнформатикБУ
    var
    a: array[1..9] of integer;
    i: integer;
    begin
    for i:=1 to 9 do
    if i mod 3 = 0 then
    begin
    a[i-2] := 1;
    a[i-1] := sqr(a[i-2]);
    a[i] := random(10);
    end;
    //вывод массива
    for i:=1 to 9 do
    write(a[i], ' ');
    writeln
    end.