Заполнить массив Y произведениями соседних трех элементов X.
10-11 класс
|
2 4 3 2 1 3 X
24 6 Y
program F777;
var
X,Y:array[1..102] of integer;
mult,i,j:integer;
begin
for i:=1 to 6 do
readln(x[i]);
j:=1; i:=1;
mult:=1;
while i<=6 do
begin
mult:=mult*X[i];
if i mod 3 = 0 then
begin
Y[j]:=mult;
mult:=1;
j+=1;
end;
i+=1;
end;
for i:=1 to 6 do
writeln(y[i]);
end.
только по 3 вводят
Другие вопросы из категории
желательно с комментариями)
выведите на экран
*
*
*****
*****
*********
*********
гласные или согласные буквы). Буквы е и ё объединены. Среди слов "крейсер", "уловка", "шалаш", "электричество", "преподаватель", "молоко" есть слова, зашифрованные следующими последоваетльностями: 2732101263310132, 391002810039, 104281032127100, 291032810327103. Каким кодом будет зашифровано слово "роутер" ?
Читайте также
100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!
Заполните массив степенями числа 2( от 2(в первой степени) до 2(в N степени)
есть ли в нем одинаковые соседние элементы.
Пример:
Исходный массив:
4 0 1 2 0 1 3 1 1 0
Заранее огромное спасибо!!!!
в)произведение элементов,кратных 3.