Если в массиве кол-во элементов меньше 3, то все элементы увеличить вдвое

@Oboltush · Регистрация: 29.01.2014

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

Тема:Одномерные числовые массивы.

1.Если в массиве кол-во элементов меньше 3 , то все элементы увеличить вдвое , иначе найти произведение
ненулевых элементов.

@newyork7776 · 29.01.2014, 02:36

я знаю

Добавлено через 6 минут

Pascal

program Project1_1;
{$APPTYPE CONSOLE}
uses SysUtils;
var mas:array [1..100] of Integer;
    q,i,n:Integer;
begin
  Randomize;
  q:=1;
  write('Enter size of array = ');Readln(n);
  Write('Array [start] = ');
  for i:=1 to n do
    begin
      mas[i]:=Random(25);
      write(mas[i],' ');
    end;
  writeln;
  Write('Array [finish] = ');
  if (n<=3) then
    begin
      for i:=1 to n do
        begin
          mas[i]:=mas[i]*2;
          write(mas[i],' ');
        end;
    end
  else
    begin
      for i:=1 to n do
        begin
          if (mas[i]<>0) then q:=(mas[i]*q);
          write(mas[i],' ');
        end;
      writeln;Writeln('Answer = ',q);
    end;
  readln;
end.

@Oboltush 0 / 0 / 0 Регистрация: 29.01.2014 Сообщений: 3
		1
	Если в массиве кол-во элементов меньше 3, то все элементы увеличить вдвое 29.01.2014, 01:35. Показов 1266. Ответов 1 Метки нет (Все метки) Тема:Одномерные числовые массивы. 1.Если в массиве кол-во элементов меньше 3 , то все элементы увеличить вдвое , иначе найти произведение ненулевых элементов. 0

Опции темы

Если в массиве кол-во элементов меньше 3, то все элементы увеличить вдвое

Решение