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

Сделайте с паскаля, написать программу вычисляющую среднее арифметическое элементов массива длиной n сформированного случайным образом

👇
Ответ:
VUNDURKIND1
VUNDURKIND1
24.11.2022
Var a:array of integer;
i,s,n:integer;
begin
write ('Введите количество элементов массива: ');
readln (n);
a := new integer[n];
for i:= 0 to n-1 do
a[i]:= random(13);
writeln(a);
for i:=0 to n-1 do
s:=s+a[i];
writeln('Среднее арифметическое элементов массива равно: ',s/n)
end.
4,7(47 оценок)
Открыть все ответы
Ответ:

1)

var a:string;

s,i:integer;

begin

read(a);

s:=0;

for i:=1 to length(a) do

if a[i]='o' then s:=s+1;

Writeln(s);

end.

 

2)

var A:array[1..1000] of integer;

N,i:integer;

s:real;

begin

Read(N);

s:=0;

for i:=1 to N do

read(A[i]);

for i:=1 to N do

s:=s+a[i];

s:=s/N;

writeln(s:3:3);

end.

 

3)

var a:string;

s:integer;

begin

read(a);

s:=length(a);

if a[1]=a[s] then writeln('Da') else writeln('Net');

end.

 

4)

var a,b:integer;

f:text;

begin

assign(f,'in.txt');

reset(f);

read(f,a,b);

Writeln(a+b);

Writeln(a-b);

Writeln((a+b)/2);

close(f);

end.

 

Вроде все корректно, проверь

В 4 задаче, название файла in.txt можешь поменять на любое другое

 

По всем вопросам пиши в ЛС

4,5(73 оценок)
Ответ:
irinkaokhotina
irinkaokhotina
24.11.2022

Давай сравним все 4 числа между собой, найдём максимальное и вычтем из него N.


Код

#include <bits/stdc++.h>

using namespace std;

int main() {

   int a, b, c, d, n;

   cin >> a >> b >> c >> d >> n;

   if (a > b && a > c && a > d)

       a -= n;

   else if (b > a && b > c && b > d)

       b -= n;

   else if (c > a && c > b && c > d)

       c -= n;

   else d -= n;

   cout << a << " " << b << " " << c << " " << d << endl;

   return 0;

}

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