Помогите с задачами по паскалю пожалуйста 1.Задана матрица размером NxM вещественных чисел. Получить массив B, присвоив его k-му элементу сумму элементов к 1-й строки матрицы. 2.Дан текст, который состоит из слов. Слова в тексте отделяются одно от другого пробелами и содержат гласные буквы, которые находятся во множестве [‘ а ‘, ‘ е ‘, ‘ у ‘, ‘ о ‘]. Подсчитать количество букв в тексте, количество слов в тексте и вывести из текста количество гласных букв данного множества.
//Pascal ABC.NET 3.1 сборка 1256
//1
Const
n=3;
m=4;
Var
ma:array[1..n,1..m] of real;
ar:array[1..n] of real;
i,j:integer;
s:real;
begin
randomize;
s:=0;
writeln(Matrix:);
for i:=1 to n do
begin
for j:=1 to m do
begin
ma[i,j]:=random(10);
write(ma[i,j]:4);
s:=s+ma[i,j];
end;
ar[i]:=s;
s:=0;
writeln;
end;
writeln(Res:);
for i:=1 to n do
writeln(i,:,ar[i]);
end.
//2
Var
se:set of char;
s:string;
i,r1,r2:integer;
begin
se:=[а,е,у,о];
readln(s);
s:=s.Trim;
i:=1;
while i
var ars:=s.Split;
for i:=1 to length(s) do
begin
if ((ordansi(lowcase(s[i]))>=65) and (ordansi(lowcase(s[i]))=97) and (ordansi(lowcase(s[i]))=128) and (ordansi(lowcase(s[i]))=224) and (ordansi(lowcase(s[i])) if lowcase(s[i]) in se then inc(r2);
end;
writeln(Количество букв:,r1);
writeln(Количество слов:,ars.Length);
writeln(Количество гласных из множества:,r2);
end.
Пример ввода:
Просто текст
Пример вывода:
Количество букв:11
Количество слов:2
Количество гласных из множества:3
