Uses Crt; Const N = 15; M = 10; Var A:array[1..N,1..M] of real; i,j:integer; S3,S7:real; Begin Randomize; ClrScr; WriteLn('Исходный массив:'); For i:= 1 to N do Begin For j:= 1 to M do Begin A[i,j]:=random*13; Write(A[i,j]:6:3,' ') End; WriteLn End; S3:=0; S7:=0; For j:= 1 to M do Begin S3:=S3+A[3,j]; S7:=S7+A[7,j]; End; WriteLn('S3 = ',S3:0:3); WriteLn('S7 = ',S7:0:3); if S3 > S7 then WriteLn('S3 > S7') else if S3 < S7 then WriteLn('S3 < S7') else WriteLn('S3 = S7'); ReadLn End.
Эта программа позволяет находить количество слов в предложении, если слова разделены одним пробелом:
Var s:string; i,k:integer; Begin writeln('Введите строку'); readln(s); k:=0; for i:=1 to length(s) do begin if s[i]=' ' then k:=k+1; end; writeln('Количество слов в предложении = ',k+1); end.
А эта программа позволяет находить количество слов в предложении, если слова разделены одним или несколькими пробелами:
var s: string; i, k: integer; begin k := 0; writeln('Введите строку: '); readln(s); s:= ' ' + s; for i:=1 to length(s)-1 do if (s[i] = ' ') and (s[i+1] <> ' ') then k:=k+1; writeln(k) end.
Const
N = 15;
M = 10;
Var
A:array[1..N,1..M] of real;
i,j:integer;
S3,S7:real;
Begin
Randomize;
ClrScr;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random*13;
Write(A[i,j]:6:3,' ')
End;
WriteLn
End;
S3:=0;
S7:=0;
For j:= 1 to M do
Begin
S3:=S3+A[3,j];
S7:=S7+A[7,j];
End;
WriteLn('S3 = ',S3:0:3);
WriteLn('S7 = ',S7:0:3);
if S3 > S7 then WriteLn('S3 > S7')
else if S3 < S7 then WriteLn('S3 < S7')
else WriteLn('S3 = S7');
ReadLn
End.