Const
maxN = 100; // Максимальное кол-во элементов массива
var
n, i: longint;
middle, sum, sum2: real; // Может быть нецелым числом
a: array[1..maxN] of real;
begin
write('Введите количество элементов массива: ');
readln(n);
sum := 0; // Считаем сумму всех элементов, чтобы найти среднее арифметическое
write('Введите элементы массива через пробел: ');
for i := 1 to n do begin
read(a[i]);
sum := sum + a[i];
end;
middle := sum / n; // Вычисляем среднее арифметическое
writeln('Среднее арифметическое = ', middle);
sum2 := 0; // Считаем сумму элеметов, меньших среднего арифметического
for i := 1 to n do
if a[i] < middle then
sum2 := sum2 + a[i];
writeln('Сумма элементов, меньших среднего арифметического = ', sum2);
end.
//Microsoft (R) C/C++ Optimizing Compiler Version 19.00.23506 for x64
#include <iostream>
#include <string>
#include <sstream>
using namespace std;
int main()
{
string str = "Hello wordl";
string to_replace, word, result;
stringstream ss( str );
cin >> to_replace;
while (ss >> word)
{
if (word.find(to_replace) != string::npos)
{
word = "...";
}
result += word + " ";
}
cout << result << endl;
}
Var
i,a:integer;
b,c:real;
Begin
read(a);
for i:=1 to a do begin
read(c);
b:=b+c;
end;
writeln(c/a);
end.
Ответ:
ключ шифрования
Объяснение:
ключом шифруется и расшифровывается сообщение
Var
a,b,c:real;
begin
Write('Сколько кг клубники собрали обе девочки? '); Read(a);
Write('Сколько кг клубники собрала Вера? '); Read(b);
c:=a-b; { собрала Валя }
if b>c then Writeln('Вера собрала на ',b-c,' кг больше')
else
if c>b then Writeln('Валя собрала на ',c-b,' кг больше')
else Writeln('Клубники собрано поровну')
end.
<u>Пример</u>
Сколько кг клубники собрали обе девочки? 3.4
Сколько кг клубники собрала Вера? 1.8
Вера собрала на 0.2 кг больше