• Составить программу вычисления,
    A - сумма положительных элементов массива;
    B – номер наименьшего элемента массива;
    C - количество элементов массива кратных пяти.
    Полученные значения элементов А,B,C,W вывести на печать.(Паскаль)

Ответы 1

  • program z1;varmas: array[1..100] of integer;i,a,b,c,n,min: integer;begina:=0;min:=1000;c:=0;writeln('Введите количество элементов массива');readln(n);writeln('Введите элементы массива');for i:=1 to n dobeginread(mas[i]);if mas[i]>0 thena:=a+mas[i];if mas[i]<min thenbeginmin:=mas[i];b:=i;end;if mas[i] mod 5=0 thenc:=c+1;end;writeln('Сумма положительных элементов массива равна ',a);writeln('Номер наименьшего элемента массива равен ',b);writeln('Количество элементов массива, кратных пяти, равно ',c);end.
    • Автор:

      brynlee
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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