• написать программу на языке Паскаль:
    На место положительных элементов массива (a1, a2,...an) записать единицы и сосчитать их количество. для отрицательных элементов массива определить их сумму.
    исходные данные:
    n=12
    a= [-8, 10, 11, -30, 21, 22, -5, 10, -10, -12, 1, 5]

Ответы 1

  • Program mas1;var a:array[1..100] of integer;k,sum,n,i:integer;Begin randomize;k:=0;sum:=0;writeln('Введите размерность массива',n); readln(n);for i:=1 to n doread(a[i]);for i:=1 to n dobegin if a[i]>0 thenbegin a[i]:=1;k:=k+1;end;write(' ',a[i]);if a[i]<0 thenbegin sum:=sum+a[i];end;end;writeln(' sum=',sum,' k=',k);readln;End.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years