Описати процедуры пошуку середнього по величині елементу масиву А[1... 2n+1] і середнього арифметичного - id1411472020211208 от lololololo7 08.12.2021 19:49

Question

Информатика: Описати процедуры пошуку середнього по величині елементу масиву А[1... 2n+1] і середнього арифметичного елементів цього масиву. За до цих процедур скласти програму яка порівнює середнє за величиною і середнє арифметичне в масиві А[1... 99]. Треба зробити в Pascal ABC. Терміново

lololololo7 · Accepted Answer

1. Программа в одной из современных версий Паскаля:

// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
begin
var s:=ReadlnString('Исходная строка:');
Writeln('Результат: ',s.MatchValues('[a-zA-ZА-Яа-яёЁ]').JoinIntoString(''));
end.

Тестовое решение:

Исходная строка: // PascalABC.NET 3.1, сборка 1211 от 31.03.2016
Результат: PascalABCNETсборкаот

2. Программа в "школьной версии"

// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
const
legal=['A'..'Z','a'..'z','А'..'Я','а'..'я','Ё','ё'];
var
s:string;
i:integer;
begin
Write('Исходная строка: '); Readln(s);
for i:=Length(s) downto 1 do
if not(s[i] in legal) then Delete(s,i,1);
Writeln('Результат: ',s);
end.

MOGZ ответил