Составьте программу вычисления суммы тех элементов одномерного массива A(N), что расположены перед первым нулевым элементом данного массива.

@Criminal63 · Регистрация: 10.12.2009

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

Составьте программу вычисления суммы тех элементов одномерного массива A(N), что расположены перед первым нулевым элементом данного массива.

Как решать не допру....

@Inadequate · 16.12.2009, 07:34

Pascal

uses
  crt;
const
  max=10;
var
  a:array[1..max]of integer;
  i,tempi,summ:integer;
  fl:boolean;
begin
  clrscr;
  summ:=0;
  fl:=true;
  tempi:=-1;
  {çàäàåì âûâîäèì ñ÷èòàåì}
  writeln('Èñõîäíûé ìàññèâ:');
  write('[ ');
  for i:=1 to max do
  begin
    a[i]:=random(8)-4;
    if (a[i]=0) and fl then
    begin
      fl:=false;
      tempi:=i
    end;
    write(a[i],' ')
  end;
  writeln(']');
  for i:=1 to tempi do
    inc(summ,a[i]);
  writeln('Ñóììà: ',summ)
end.

@Criminal63 0 / 0 / 0 Регистрация: 10.12.2009 Сообщений: 9
		1
	Составьте программу вычисления суммы тех элементов одномерного массива A(N), что расположены перед первым нулевым элементом данного массива. 16.12.2009, 00:59. Показов 2301. Ответов 1 Метки нет (Все метки) Составьте программу вычисления суммы тех элементов одномерного массива A(N), что расположены перед первым нулевым элементом данного массива. Как решать не допру.... 0

Опции темы

Составьте программу вычисления суммы тех элементов одномерного массива A(N), что расположены перед первым нулевым элементом данного массива.

Решение