Определить сумму индексов 2 и 3 отрицательного элементов массива. Вывести эти индексы.
procedure TForm33.Button1Click(Sender: TObject); var
a:array [1..10] of integer;
i,m,x,y,s:integer;
begin
m:=0;
for i:=1 to 10 do
begin
a[i]:=random(10)-7;
if a[i]<0 then m:=m+1;
Label1.Caption:=Label1.Caption+inttostr(a[i])+' ';
if m=2 then begin
x:=i;
m:=3;
end;
if m=4 then
y:=i;
s:=x+y;
Label2.Caption:=inttostr(s);
end;
end;
1. Определить количество слов, начинающихся на букву «a», считая, что между словами может быть более одного пробела.
Uses crt;
Var
S:string; i:integer;
Begin
Readln(s);
S:=s+’ ‘;
While length(s)>0 do
Begin
If s[1]=’a’ then inc(i);
Delete (s,1,pos(‘ ‘,s);
End;
Writeln(i);
Readln;
End.
2. Вычислить сумму каждой строки матрицы, записать результаты в одномерный массив и отсортировать этот массив по возрастанию.
Var a:array [1..5,1..5] of integer;
B:array [1..5] of integer;
I,j,s:integer;
Begin
For i:=1 to 5 do
For j:=1 to 5 do
Begin
A[I,j]:=random(2)+1;
Stringgrid1.cells[j-1,i-1]:=inttostr(a[I,j]);
End;
S:=0;
For I:=1 to 5 do
Begin
For j:=1 to 5 do begin
S:=s+a[I,j];
End;
B[i]:=s;
S:=0;
End;
For i:=1 to 4 do
If b[i]>b[i+1] then begin s:=b[i]; b[i]:=b[i+1]; b[i+1]:=s; end;
Stringgrid2.cells[i-1,0]:=inttostr(b[i]);
End;
- Заданы натуральные числа A, B, C. Требуется написать программу, которая найдет общие цифры в этих числах.
Uses crt;
var
s1,s2,s3:string;
i,j,k,:integer;
begin
Readln(s1,s2,s3);
for i:=1 to length(s1) do
for j:=1 to length(s2) do
for k:=1 to length(s3) do
if (s1[i]=s2[j]) and (s2[j]=s3[k]) then Writeln(s1[i];’ ‘);
readln;
end.
- Вывести номер пятого отрицательного элемента одномерного массива.
procedure TForm33.Button1Click(Sender: TObject); var
a:array [1..10] of integer;
i,m:integer;
begin
m:=0;
for i:=1 to 10 do
begin
a[i]:=random(10)-7;
if a[i]<0 then m:=m+1;
if m=5 then Label2.Caption:=inttostr(a[i]);
Label1.Caption:=Label1.Caption+inttostr(a[i])+' ';
end;
end;
Дата добавления: 2015-12-17; просмотров: 19; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!