Viết chương trình nhập vào 2 số khác nhau a,b dạng Pascal
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
MA
0
KV
3 tháng 5 2022
Var a:array[1..200] of integer;
i,n,s,dem:integer;
tbc:real;
Begin
Write('Nhap so luong phan tu = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
End;
s:=0;
For i:=1 to n do
If a[i] mod 2 = 0 then
Begin
s:=s+a[i];
dem:=dem+1;
End;
tbc:=s/dem;
Write('Trung binh cong cac so chan la ',s:10:2);
Readln;
End.
TP
0
Tham khảo:
uses crt;. var a,b:integer;. begin. clrscr;. write('a='); readln(a);</p><p>write('b='); readln(b);</p><p>if a=b then writeln('vui long nhap hai so khac nhau ...
thiếu mà b