Составить программу для вычисления массива

@Skrepi · Регистрация: 18.06.2014

Студворк — интернет-сервис помощи студентам

Составить* программу для вычисления W= A*B/(C+2)
A - наибольший элемент массива;
B - произведение элементов массива с четными номерами;
C - количество элементов массива, больших D (вводится с клавиатуры).

@Don_Omare · 18.06.2014, 20:35

Pascal

uses
  crt;
 
var
  X: array[1..20] of integer;
  i, max, proiz, d, col: integer;
 
begin
  for i := 1 to 20 do
  begin
    x[i] := Random(10) + 1;
    write(x[i] + ' ');
  end;
  writeln('vvedite d... ');
  readln(d);
  max := x[1];
  proiz := 1;
  col := 0;
  for i := 1 to 20 do
  begin
    if x[i] > max then
      max := x[i];
    if i mod 2 = 0 then
      proiz := proiz * x[i];
    if x[i] > d then
      col := col + 1;
  end;
  writeln('vash otvet: ', (max * proiz) / (col + 2));
end.

@Skrepi 1 / 1 / 0 Регистрация: 18.06.2014 Сообщений: 9
		1
	Составить программу для вычисления массива 18.06.2014, 19:45. Показов 1431. Ответов 1 Метки нет (Все метки) Составить* программу для вычисления W= A*B/(C+2) A - наибольший элемент массива; B - произведение элементов массива с четными номерами; C - количество элементов массива, больших D (вводится с клавиатуры). 0

Опции темы

Составить программу для вычисления массива

Решение