Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

Заполнить массив Y произведениями соседних трех элементов X.

10-11 класс

2 4 3 2 1 3 X
24 6 Y

Elizabetby 28 марта 2014 г., 8:20:06 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Rusa36
28 марта 2014 г., 10:38:44 (10 лет назад)

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.

+ 0 -
Vovochkanovikov
28 марта 2014 г., 13:21:35 (10 лет назад)

только по 3 вводят

+ 0 -
Вероника20199
28 марта 2014 г., 14:18:06 (10 лет назад)

??

Ответить

Другие вопросы из категории

рисование символами в паскаль ABC. символы должны отделяться пробелами.

выведите на экран
*
*
*****
*****
*********
*********

Каждая буква шифруется двузначным или трехзначгым числом, в зависимости от того гласная она или согласная (при этом не ясно двузначным кодом шифруется

гласные или согласные буквы). Буквы е и ё объединены. Среди слов "крейсер", "уловка", "шалаш", "электричество", "преподаватель", "молоко" есть слова, зашифрованные следующими последоваетльностями: 2732101263310132, 391002810039, 104281032127100, 291032810327103. Каким кодом будет зашифровано слово "роутер" ?

Читайте также

1)заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку,заменив все четные элементы на число

100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!

(Программа Паскаль) 1)Заполните массив элементами арифметической прогрессии. Её первый элемент и разность нужно ввести с клавиатуры. 2)

Заполните массив степенями числа 2( от 2(в первой степени) до 2(в N степени)

Срочно! Помогите! Написать программу в турбо паскале Заполнить массив из 10 элементов случайными числами в интервале от 0 до 4 и определить,

есть ли в нем одинаковые соседние элементы.

Пример:

Исходный массив:

4 0 1 2 0 1 3 1 1 0

Заранее огромное спасибо!!!!



Вы находитесь на странице вопроса "Заполнить массив Y произведениями соседних трех элементов X.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.