Dim a(1 to 20) as Integer
Dim i as Integer
Randomize Timer
For i=1 To 20
a(i)=Int(50*Rnd)-25
Print a(i);
Next i
Print
For i=1 To 20
If a(i)>0 Then Print i;
Next i
Print
Что написанное пером более лучшее и аккуратное, а если это вырубить топором то ничего не получится. Также и в жизни, что сделано очень красиво и аккуратно, то не возможно это воссоздать другой рукой..(ааа не могу, знаю как сказать, а написать не могу)
//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<length(s) do
if (s[i]=' ') and (s[i+1]=' ') then delete(s,i+1,1) else inc(i);
var ars:=s.Split;
for i:=1 to length(s) do
begin
if ((ordansi(lowcase(s[i]))>=65) and (ordansi(lowcase(s[i]))<=90)) or ((ordansi(lowcase(s[i]))>=97) and (ordansi(lowcase(s[i]))<=122)) or ((ordansi(lowcase(s[i]))>=128) and (ordansi(lowcase(s[i]))<=175)) or ((ordansi(lowcase(s[i]))>=224) and (ordansi(lowcase(s[i]))<=243)) then inc(r1);
if lowcase(s[i]) in se then inc(r2);
end;
writeln('Количество букв:',r1);
writeln('Количество слов:',ars.Length);
writeln('Количество гласных из множества:',r2);
end.
Пример ввода:
Просто текст
Пример вывода:
Количество букв:11
Количество слов:2
Количество гласных из множества:3
Var a, b:integer;
begin
write('Введите число: ');
readln(a);
repeat;
b:=b*10+a mod 10;
a:=a div 10;
until a=0;
writeln(b);
readln;
end.