lollilol798655799086
03.04.2021 11:48

. Чим табличні величини відрізняються від текстових або числових величин? 2. Учому особливість опису табличних величин мовами програмування Free Pascal, Python? 3. Учому відмінність табличної величини та елемента табличної величини? 4. Чи обов'язково кожному елементу табличної величини ставити у відповід- нiсть його номер? Для чого потрібні такі номери? Чи можна визначити кількість елементів за описом табличної величини 5. мовами програмування Free Pascal, Рython? 6. Які засоби для введення й виведення елементів табличної величини передбачені у програмах мовами програмування Free Pascal, Python? 7. Які елементи управління використовують для введення чи виведення значень табличних величин у середовищі програмування Lazarus?​​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
lara7208
16.04.2020 20:28
Const Sz = 100; // Размер массива

var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i,k: integer;
min,max: real;
begin
k:=0;
N:= 10;
write('Введите элементы массива: ');
for i:=1 to N do begin
read(a[i]);
k:=k+a[i];
end;
write('Вывод элементов массива: ');
for i:=1 to N do
write(a[i],' ');
min := a[1];
for i:=2 to N do
if a[i]<min then
begin
min := a[i];
end;
max := a[1];
for i:=2 to N do
if a[i]>max then
begin
max := a[i];
end;
writeln('max=',max,' ','min=', min,' ','Средная температура=',k/N3)
end.
0,0(0 оценок)
Ответ:
sasockolowa
24.09.2020 21:54
Если цепочки две, то выводится ближайшая. Пойдет?

//t1.txt должен быть в папке с программой
//Pascal
var
  f: text;
  numValue, Counts, n, c, t, i: integer;
begin
  assign(f, 't1.txt');
  reset(f);
  Counts := 0;
  c := 0;
  while not eof(f) do
    begin
      readln(f, n);
      if (c = 0) or (n = t) then
        c := c + 1
      else
        c := 1;
      t := n;
      if c > Counts then
      begin
          Counts := c;
          numValue := n
      end
    end;
  close(f);
  assign(f, 't2.txt');
  rewrite(f);
  writeln('Длина цепочки: ', Counts);
  for i := 1 to Counts do
    writeln(f, numValue);
  close(f)
end.

Pascal abc дан текстовый файл t1.txt, содержащий целые числа, не превышающие 30000. найти длину само
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота