Program gt; var a:string; k,l,i:integer; begin readln(a); //Сначала переведем вес текст в нижний регистр l:=length(a); k:=0; for i:=1 to l do begin if(ord(a[i])>64)and(ord(a[i])<91)then a[i]:=chr(ord(a[i])+32); if(a[i]='а')or(a[i]='у')or ... or(a[i]='е')then k:=k+1; //здесь вместо точек пиши как предедушие но с гласными(другими) буквами end; writeln(k); end.
Var a: array[0..99] of integer; begin //заполняем массив случайными числами Randomize(); for var i:=0 to 99 do a[i]:=random(-100,100);
//а теперь заменяем все отрицательные элементы на ноль for var i:=0 to 99 do if (a[i]<0) then a[i]:=0; end.
Вот второй вариант программы, со вводом с клавиатуры и со сдвигом нулевых элементов в хвост массива program pr_1;constn = 6;varA: array [1..n] of integer; n1: integer; beginWrite('введите ');for i := 1 to n doread(A[i]); n1:=n; for var i:=n downto 1 do{в цикле просматриваем элементы массива} begin if A[i] < 0 then {проверяем, нужно ли удалять i-ый элемент} begin{если нужно – удаляем i-ый элемент} for var j := i to n1 - 1 do A[j] := A[j + 1]; {сдвигаем} A[n1]:=0; Dec(n1); {уменьшаем количество элементов} end; end; for var i:=1 to n1 do write(A[i], ' ');end.
Procedure TForm1.Button1Click(Sender: TObject); var i1,i2,i3 : Integer; m : array [1..10] of Integer; kk : Integer; begin Memo1.Clear; for i1 := 1 to 10 do begin m[i1]:= Random(10)-5; Memo1.Lines.Append('m['+inttostr(i1)+'] = '+inttostr(m[i1])); end; Memo1.Lines.Append(''); kk := 0; for i1 := 1 to 10-2 do begin for i2 := i1+1 to 10-1 do begin for i3 := i2+1 to 10 do begin if ( (m[i1]+m[i2]+m[i3])=0) then begin inc(kk); Memo1.Lines.Append('Индекс = '+inttostr(i1)+' '+inttostr(i2)+' '+inttostr(i3)+' Значение = '+inttostr(m[i1])+' '+inttostr(m[i2])+' '+inttostr(m[i3])); end; end; end; end; Memo1.Lines.Append(''); if kk>0 then Memo1.Lines.Append('Да в этом массиве есть три числа сумма которых равна нулю') else Memo1.Lines.Append('Нет в этом массиве три числа сумма которых равна нулю'); Memo1.Lines.Append('Количество комбинаций = '+inttostr(kk)); end;
var a:string;
k,l,i:integer;
begin
readln(a);
//Сначала переведем вес текст в нижний регистр
l:=length(a);
k:=0;
for i:=1 to l do
begin
if(ord(a[i])>64)and(ord(a[i])<91)then a[i]:=chr(ord(a[i])+32);
if(a[i]='а')or(a[i]='у')or ... or(a[i]='е')then k:=k+1; //здесь вместо точек пиши как предедушие но с гласными(другими) буквами
end;
writeln(k);
end.