М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
123451529
123451529
05.05.2021 23:12 •  Информатика

Написать программу в паскале! надо! задана последовательность целых чисел,количество которых не превосходит 100.требуется определить за один проход элемент с максимальным значением,а также число его повторений в последовательности.

👇
Ответ:
AKBARXXX
AKBARXXX
05.05.2021
Var
  i,k,max:integer;
  a:array[1..100]of integer;
begin
writeln('Исходная последовательность: ');
for i:=1 to 100 do
  begin
  a[i]:=random(200);
  write(a[i],' ');
  if a[i]>max then
    begin
    max:=a[i];
    k:=1;
    end;
  if a[i]=max then
    k:=k+1;
  end;
writeln;
writeln('Максимальное значение: ',max);
writeln('Число повторений: ',k)
end.
4,4(95 оценок)
Ответ:
titan9064
titan9064
05.05.2021
Program maxof;
var ar: array [1..100] of integer;
i, j, posl: shortint;
max: integer;
begin
readln(i);
for j:=1 to i do begin
readln(ar[j]);
end;
max:=ar[1];
posl:=1;
for j:=2 to i do begin
if max = ar[j] then inc(posl);
if max < ar[j] then begin posl:=1; max:=ar[j] end; 
end; writeln(max, ' x', posl);
end.
4,6(84 оценок)
Открыть все ответы
Ответ:
Kikookiko
Kikookiko
05.05.2021
{массив заполняется случайным образом положительными и отрицательными элементами. Находятся отрицательные элементы на главной диагонали и если они есть, то находится их сумма и количество. После этого проверяется, если есть отрицательные элементы на главной диагонали, то выдается среднее арифметическое, если нет, то на экране ответ "нет отриц"}
const
m=100;
var
a:array[1..m,1..m]of integer;
i,j,S,n,k: integer;
begin
Readln(n);
    for i:=1 to n do
        begin
             writeln;
                 for j:=1 to n do
                      begin
                            a[i,j]:=random(100)-50;
                             write(a[i,j]:4);
                                  
                      end;
         end;
for i:=1 to n do
  if a[i,i]>0 then
        begin
           s:=s+a[i,i];
           k:=k+1;
       end;
writeln;
 if   k<>0 then
      writeln('SR=', s/k)
 else
       writeln('Net <0');
end.
4,5(49 оценок)
Ответ:
Aleusand
Aleusand
05.05.2021

bool ok1(int a, int b, int c){

  return (a+b > c && a+c > b && b+c > a) && min(a,min(b,c)) > 0;

}

bool ok2(int a, int b, int c){

  return ok1(a,b,c) && (a == b || a == c || b == c);

}

signed main(){

  const int n = 3, m = 7;

  int arr[n][m];

  for(int i = 0; i < n; i++)

      for(int j = 0; j < m; j++)

          cin >> arr[i][j];

  vector<int> ans;

  for(int j = 0; j < m; j++)

      if(ok2(arr[0][j],arr[1][j],arr[2][j]))

          ans.push_back(j+1);

  cout << ans.size() << "\n";

  for(auto i: ans)

      cout << i << " ";

}

Подробнее - на -

Объяснение:

4,6(56 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ