BÀI THỰC HÀNHTuần 25 (Tiết 1)Bài 1: Cho mãng gồm n phần tử là số thực.a.Tìm hai phần tử liên tiếp nhau có tổng bằng n.b. Tính khoảng cáhc giữa hai vị trí của phần tửlớn nhất và bé nhất đầu tiên trên A.{Chương trình}Program Tuan25_Bai1;Uses crt;VarA: array[1…..100] of real;Max, min : realI, n, Vtmax, Vtmin = integer;BeginWriteln(‘nhap n:’); readln(n);For i: 1 to n do;BeginWrite(‘[‘,I,’]=’); readln(A[i]);End.i:=1;{Tìm...
Đọc tiếp
BÀI THỰC HÀNH
Tuần 25 (Tiết 1)
Bài 1: Cho mãng gồm n phần tử là số thực.
a.Tìm hai phần tử liên tiếp nhau có tổng bằng n.
b. Tính khoảng cáhc giữa hai vị trí của phần tửlớn nhất và bé nhất đầu tiên trên A.
{Chương trình}
Program Tuan25_Bai1;
Uses crt;
Var
A: array[1…..100] of real;
Max, min : real
I, n, Vtmax, Vtmin = integer;
Begin
Writeln(‘nhap n:’); readln(n);
For i: 1 to n do;
Begin
Write(‘[‘,I,’]=’); readln(A[i]);
End.
i:=1;
{Tìm hai phần tử liên tiếp nhau có tổng bằng n}
While (A[i] + A[i+1]) <> n) and (i<= n-1) do i:=i+1
If i>=n then write (‘hai phan tu co chi so la:’,i,’ va’,i+1);
{Tính khoảng cáhc giữa hai vị trí của phần tử lớn nhất và bé nhất đầu tiên trên A}
Max=A[1];
Min:A[1];
For i:1 to n do
If max < A[i] then
Begin
Vtmax:= i; Max:=A[i];
End
If min > A[i] then
Begin
Vtmin: i; Min=A[i];
End
Writeln (‘khoangr cach giua 2 phan tu max vaf min la:’,abs(Vtmax – Vtmin));
Readln;
End
