Program mas1; var a:array[1..100] of integer; i,k,n:integer; Begin randomize; k:=0; writeln('Введите размерность массива',n); readln(n); for i:=1 to n do a[i]:=random(10)+1; readln; for i:=1 to n do begin if a[i]=1 then k:=k+1; end; writeln('k=',k); readln; End.
var s: string; f: array[1..10] of boolean; i, m: integer;
begin Write('Введите фразу: '); Readln(s); m := Pos(' ', s); if m = 0 then Writeln('В строке отсутствуют пробелы') else begin for i := 1 to 10 do f[i] := False; for i := m + 1 to length(s) do case s[i] of 'А', 'а': f[1] := True; 'Е', 'е': f[2] := True; 'Ё', 'ё': f[3] := True; 'И', 'и': f[4] := True; 'О', 'о': f[5] := True; 'У', 'у': f[6] := True; 'Ы', 'ы': f[7] := True; 'Э', 'э': f[8] := True; 'Ю', 'ю': f[9] := True; 'Я', 'я': f[10] := True end; Write('Найдены гласные: '); for i := 1 to 10 do if f[i] then Write(gl[i], ' '); Writeln end end.
Тестовое решение: Введите фразу: Это проверочная фраза "Мама мыла раму". Конец теста. Найдены гласные: а е о у ы я
В Pascal.ABC можно написать и короче: const gl = 'аеёиоуыэюя';
var s: string; f: array[1..10] of boolean; i, m, p: integer;
begin Write('Введите фразу: '); Readln(s); m := Pos(' ', s); if m = 0 then Writeln('В строке отсутствуют пробелы') else begin for i := 1 to 10 do f[i] := False; s := LowerCase(s); { перекодировать к нижнему регистру } for i := m + 1 to length(s) do begin p := Pos(s[i], gl); if p > 0 then f[p] := True end; Write('Найдены гласные: '); for i := 1 to 10 do if f[i] then Write(gl[i], ' '); Writeln end end.
Var a,b,c:integer; begin writeln('Введите возраст Светланы: '); readln(a); writeln('Введите возраст Карины: '); readln(b); writeln('Введите возраст Марины: '); readln(c); if ((a>b) and (a>c)) then writeln('Светлана: ', a) else if ((b>c) and (b>a)) then writeln('Карина: ', b) else if ((c>a) and (c>b)) then writeln('Марина: ', c); if ((a>c) and (c>b)) then writeln('Марина: ', c) else if((c>b) and (b>a)) then writeln('Карина: ', b) else if ((b>a) and (a>c)) then writeln('Светлана: ', a); if ((a<b) and (a<c)) then writeln('Светлана: ', a) else if ((b<a) and (b<c)) then writeln('Карина: ', b) else if ((c<a) and (c<b)) then writeln('Марина: ', c); end.
var a:array[1..100] of integer;
i,k,n:integer;
Begin
randomize;
k:=0;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(10)+1; readln;
for i:=1 to n do
begin if a[i]=1 then
k:=k+1;
end;
writeln('k=',k);
readln;
End.