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

Напишите программу в pascal для этой : найти среднее арифметическое и сумму последовательности положительных чисел

👇
Ответ:
кирилл22895
кирилл22895
06.06.2023
Var a, sum, i : integer; s, x : string; sa : real;
begin sum:=0; readln(s); for i:=1 to length(s) do begin x:=copy(s, i, 1); val(x, a); sum:=sum+a; end; sa:=sum/(length(s)); writeln('сумма: ', sum); writeln('среднее арифметическое: ', sa:4:2);end.
4,7(54 оценок)
Открыть все ответы
Ответ:
timati06blacstar
timati06blacstar
06.06.2023

 

 

 

   

 Достоинства исполнителя Робот 

 

1) Скорость  

 

 

 Недостатки исполнителя Робот

 

 

 

1) Неправильный перевод предложения. Т. к  при буквальном переводе слово в слово теряется смысл. (особенно касается жаргонных английских фраз и идиом ).

 

 

Достоинства исполнителя Человек

 

1) Возможность самостоятельно корректировать и дополнять заданный алгоритм

 2) Прочитав первое предложение на шаге 2 переводить его не тупо пословно, а учитывая  структуру предложения и тип употребляемых слов(идиомы ,американизмы и.т.д) .

3) Более точная передача смысла фразы 

 

 

 

 Недостатки  исполнителя Человек. 

 1) Значительно более низкая скорость перевода.

2) Необходимость в перерывах ввиду естественных потребностей (сон,еда,туалет).

 

 

 

 

 

4,8(57 оценок)
Ответ:
ivanovasvetak
ivanovasvetak
06.06.2023

Program fantscrin;

 const n = 10;

 Var a: array [1..n] of integer;

     i,j,k:integer; s:real;

Begin

 for i:=1 to n do

   a[i]:=random(20)-10;

 for i:=1 to n do

   write(a[i], '  ');

 for i:=1 to n do

   for j:=1 to n-1 do

     if (a[j]<a[j+1]) then

                      begin

                       k:=a[j];

                       a[j]:=a[j+1];

                       a[j+1]:=k;

                      end;

 writeln('');

 for i:=1 to n do

   write(a[i], '  ');

 s:=0;

 for i:=1 to n do

   if ((a[i] < 0)and(i mod 2=0)) then s:=s+1;

 writeln('');

 writeln(s);

End.

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