• Дан массив E(10). Составить программу обработки массива:
    1. Положительные элементы массива заменить нулями.
    2. Определить число элементов массива равных 5.
    3. Найти сумму чисел, неравных 3.
    Все это должно быть в одной задаче, решите плиз качественно, даю много баллов.
    Ах, да, все это на языке паскаль.

Ответы 6

  • Не поможете?(
  • Я пока пишу другую, хотите помощь быстрее? Ставьте больше баллов
  • Я подожду. Но Вы решите моё?(
    • Автор:

      brownie
    • 6 лет назад
    • 0
  • ДА возможно
  • Вы мне очень поможете! Буду ждать как Хатико)
    • Автор:

      milagros
    • 6 лет назад
    • 0
  • var sum,c,i,l:integer;E:array[1..10] of integer;beginwriteln('Введите числа');for i:=1 to 10 do beginread(e[i]);if e[i]>0 then e[i]:=0;if e[i]=5 then l:=l+1;if e[i]<> 3 then sum:=sum+e[i];end;writeln('Полученный массив');for i:=1 to 10 dowrite(e[i]:4);writeln;writeln('Сумма чисел, не равных трем равна ',sum);writeln('Число элементов массива, равных пяти равна ',l);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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