Сформируйте и выведите на экран массив из 9 частей, каждые три
Сформируйте и выведите на экран массив из 9 элементов, каждые три поочередных элемента которого составлены по последующему правилу:
1-й равен квадрату текущего индекса
2-й равен случайному числу
3-й равен полусумме двух предыдущих частей
1 ответ
Alla Bitjuk
// 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.
Пример
1 44 22.5 16 16 10 49 39 23
// Внимание! Если программка не работает, обновите версию!
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
Дима
Во 2-ой строчке ошибка. Переменная обязана же быть вынесена до begin и ещё что-то
Оксана Ноздря
На паскале всегда так, переменные выносятся в описание, это не питон. Ну я сам подправил, спасибо
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов