Регистрация Спросить otvet5GPT
ABILAIKhan
07.08.2021 23:40
Информатика
Есть ответ 👍

Pascal abc.задайте массив из файла, в котором будут размещены однозначные цифры вашей даты рождения. например, вы родились 5 ноября 1990 года, но массив будет выглядеть следующим образом: 0,5,1,1,1,9,9,0. отсортируйте данный массив, посчитайте сумму его элементов и среднее арифметическое. результат сохраните в файл.

182
442
Посмотреть ответы 2

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

Airehon
Airehon
4,5(8 оценок)
Создаёшь в папке с программой два текстовых файла с именами "1.txt." и "output.txt". в первый записываешь 8 чисел без пробелов и запятых ("22031991", например). type  matrix = array [1..8] of integer; var  f, output: text;   i, n, cc, sum: integer;   c: char;   x: matrix;   ma: real; procedure convert (var c: char; var cc: integer); begin  if c='1' then cc: =1;   if c='2' then cc: =2;   if c='3' then cc: =3;   if c='4' then cc: =4;   if c='5' then cc: =5;   if c='6' then cc: =6;   if c='7' then cc: =7;   if c='8' then cc: =8;   if c='9' then cc: =9;   if c='0' then cc: =0; end; procedure sorting (n: integer; x: matrix); begin  for n: =1 to 7 do begin    if x[n]> x[n+1] then swap(x[n],x[n+1]);   end; end; begin  assign(f, '1.txt');   reset(f);   for i: =1 to 8 do begin    read(f, c);     convert(c,cc);     x[i]: =cc;   end;   close(f);   sorting(n,x);   sum: =x[1]+x[2]+x[3]+x[4]+x[5]+x[6]+x[7]+x[8];   ma: =sum/8;       assign(output, 'output.txt');   rewrite(output);   writeln(output, sum); writeln(output, ma);   close(output); end.
Kurbanovaarina
Kurbanovaarina
4,8(46 оценок)
1.  var a, b : real; begin readln(a, b); writeln(sqrt(a*a + b*b)); end. 2.  var s1, s2, a1, a2 : real; begin readln(s1, s2); if s1 / 3.14159265 < s2 / 4 then writeln('yes') else writeln('no'); end. 3.  var x, y : real; begin readln(x); if x < -10 then y: =234 - x*x*x else y: =x * x + 54; writeln(y); end.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

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

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS