• Пожалуйста,помогите решитьn задачи Pascal.Помогите решить хотя бы те ,которые сможете♥♥.СРОЧНО НУЖНО НА ЗАВТРА.
    1)Заполните массив их 20 элементов целыми числами из интервала [-10;19],используя генератор случайных величин.
    2)Заполнить массив из 10 элементов целыми числами из интервала -20-29 числа вводятся с клавиатуры.
    3)Используя программу к задаче 1,напишите программу,которая подсчитывает количество положительных элементов массива.
    4)Используя программу к задаче 1,напишите программу ,которая заменяет все отрицательные элементы массива на 0.
    5)Используя программу к задаче 1,напишите программу,которая находит сумму всех положительных элементов массива.

Ответы 6

  • Большое спасибо за помощь!
    • Автор:

      gizmottfo
    • 6 лет назад
    • 0
  • Благодарю!
    • Автор:

      corkyrpvz
    • 6 лет назад
    • 0
  • Пожалуйста
    • Автор:

      issachrk0
    • 6 лет назад
    • 0
  • Да. Отличное подтверждение, что в школе учат как НЕ НАДО писать программы.
  • // PascalABC.NET 3.0, сборка 1128begin  var a:=ArrRandom(20,-10,19);  a.Println(','); // 1  var b:=ReadArrInteger('Введите 10 целых чисел',10); // 2  Writeln('Количество положительных элементов ',    a.Where(x->x>0).Count); // 3  for var i:=0 to 19 do    if a[i]<0 then a[i]:=0;  Writeln('Массив А после замены отрицательных'); a.Println(','); //4  Writeln('Сумма положительных элементов ',    a.Where(x->x>0).Sum) // 5end.Тестовое решение:14,8,9,-5,6,3,3,-10,-8,18,7,13,2,17,-1,0,4,-3,8,-8Введите 10 целых чисел -5 0 13 -7 -14 11 8 19 -3 -1Количество положительных элементов 13Массив А после замены отрицательных14,8,9,0,6,3,3,0,0,18,7,13,2,17,0,0,4,0,8,0Сумма положительных элементов 112
  • Задача №1var a:array [1..20] of integer;      i:integer;begin  randomize;   for i:=1 to 20 do begin    a[i]:=random(19-(-10)+1)+-10;      write (a[i],' ');            end;end.Задача №2var a:array [1..20] of integer; i:integer; begin writeln('Введите числа в интервале [-20;29]'); for i:=1 to 10 do read(a[i]); for i:=1 to 10 do if (a[i]>-29) and (a[i]<20) then write(a[i],' '); end.Задача №3var a:array [1..20] of integer; i,sum:integer; begin randomize; sum:=0; for i:=1 to 20 do begin a[i]:=random(19-(-10)+1)+-10; write (a[i],' '); if a[i]>0 then sum:=sum+1; end; writeln('Количество положительных элементов массива = ', sum); end.Задача №4var a:array [1..20] of integer; i:integer; begin randomize; for i:=1 to 20 do begin a[i]:=random(19-(-10)+1)+-10; if a[i]<0 then a[i]:=0; write (a[i],' '); end; end.Задача №5var a:array [1..20] of integer; i,sum:integer; begin randomize; sum:=0; for i:=1 to 20 do begin a[i]:=random(19-(-10)+1)+-10; write (a[i],' '); if a[i]>0 then sum:=sum+a[i]; end; writeln('Сумма положительных элементов массива = ', sum); end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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