• Помогите пожалуйста решить 2 номера, буду очень благодарна

    question img

Ответы 2

  • Спасибо большое
    • Автор:

      drew800
    • 6 лет назад
    • 0
  • Раз в обоих заданиях известно количество элементов в массиве, то имеет смысл использовать цикл  for.Задание №1const n=20;var  a:array[1..n] of integer;  i,s:integer;begin  s:=0;  for i:=1 to n do begin    a[i]:=random(1001);    if a[i] mod 10 = 4 then s:=s+1;  end;  writeln(s);end.Задание №2const n=20;var  a:array[1..n] of integer;  i,max,nmax:integer;begin  max:=0;  for i:=1 to n do begin    a[i]:=random(1001);    if a[i] >max then begin       nmax:=i;      max:=a[i];    end;    write(a[i]:5);  end;  writeln;  writeln(nmax,' ',a[nmax]);end.
    • Автор:

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

Войти через Google

или

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

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

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