Mọi người ơi chỉ giúp mình bài này với ạ ?? Viết chương trình (VCT) nhập vào một mảng số thực gồm 10 phần tử 1. Tính tổng các phần tử từ thứ tự 1,3,5,7,9 và in kết quả ra màn hình? 2. Tìm phần tử lớn nhất trong mảng đã nhập và in ra kết quả ra màn hình? 3. Cho biết có bao nhiêu phần tử có giá trị >5?
2 câu trả lời
Có làm tròn kết quả ko thế bạn ơi
program bt;
uses crt;
var i,dem:integer;
A:array[1..15] of real;
Max,S:real;
begin
clrscr; Max:=-10000; dem:=0;
For i:=1 to 10 do read(A[i]);
S:=A[1]+A[3]+A[5]+A[7]+A[9];
For i:=1 to 10 do if A[i]>=Max then Max:=A[i];
For i:=1 to 10 do if A[i]>5 then dem:=dem+1;
writeln('Tong cac so o vi tri 1,3,5,7,9 la ',S:0:2);
writeln('So lon nhat: ',Max:0:2);
writeln('Co ',dem,' so >5');
readln;
readln;
end.
Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
i,s,max,d: longint;
Begin
Clrscr;
s:=0; d:=0;
For i:=1 to 10 do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If i mod 2 = 1 then s:=s+A[i];
If A[i]>5 then inc(d);
End;
max:=A[1];
For i:=1 to 10 do
If A[i]>max then max:=A[i];
Writeln('1. ',s);
Writeln('2. ',max);
Write('3. ',d);
Readln
End.
