Дан одномерный массив, содержащий вещественные числа. Для каждого элемента массива напечатать число отрицательных элементов, идущих за ним - Turbo Pascal

Формулировка задачи:

Дан одномерный массив, содержащий вещественные числа. Для каждого элемента массива напечатать число отрицательных элементов, идущих за ним Помогите решить задачку =)


textual

Код к задаче: «Дан одномерный массив, содержащий вещественные числа. Для каждого элемента массива напечатать число отрицательных элементов, идущих за ним - Turbo Pascal»

program Kiryshka;
{$APPTYPE CONSOLE}
uses SysUtils;
var mas:array [1..20] of Integer;
    q,i,n:Integer;
begin
  q:=0;
  Write('Enter size of array = ');Readln(n);
  for i:=1 to n do
    begin
      Write('Array [',i,'] = ');Readln(mas[i]);
    end;
  Writeln;
  Writeln('element[count minus elment]');
  for i:=1 to n do
    begin
      if (mas[i]>0) then Write(' ');
      Writeln(mas[i],'[',q,']');
      if (mas[i]<0) then Inc(q);
    end;
Writeln('The End.');
Readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 3.875 из 5

Источник
Похожие ответы