Регистрация
vikaolkhovskay
04.10.2020 06:09
Информатика
Есть ответ 👍

Инструменты для рисования можно выбрать на

165
479
Посмотреть ответы 3

Ответы на вопрос:

148625
148625
4,7(2 оценок)
Впрограмме paint в меню настроек рисунка(отдельное меню)
nurkenalmazbek
nurkenalmazbek
4,4(36 оценок)
Вpaid в кисти на верхней строке
Nastya06923
Nastya06923
4,5(96 оценок)
Program p1; const n=10; var a: array [1..n] of real;     i: byte;       max: real;       nmax: byte; begin   //начало цикла ввода  for i: =1 to n do  //ввод       readln(a[i])  //берём за максимальный 1ый элемент   max: =a[1];     //берём количество = 1   nmax: =1;   / /начало цикла проверки  for i: = 2 to n do    if a[i]> max then            begin                max: =a[i];           nmax: =1;           end else                 if a[i]= max then                                  nmax: =nmax+1;   //вывод  writeln('максимальный элемент = ', max,', количество таких элементов = ',nmax);   end.

Популярно: Информатика