Lập trình pascal ạ
Mn giúp mình với
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.
Những câu hỏi liên quan
30 tháng 4 2022
uses crt;
var a:array[1..100]of real;
i,n,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem:=0;
for i:=1 to n do
if a[i]>=8 then inc(dem);
writeln(dem);
readln;
end.
30 tháng 8 2021
a: if (a=b) or (b=c) or (a=c) then writeln('Tam giac can');
b: if (a=c) and (b=c) then writeln('Tam giac deu');
c: if (x mod 2<>0) and (x mod 3=0) then writeln('x la so nguyen le va chia het cho 3');
9 tháng 11 2021
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(a*a+b*b);
readln;
end.
11 tháng 3 2022
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
CT
0
VP
1
HM
1
D
datcoder
CTVVIP
26 tháng 10 2023
Program HOC24;
var st,st1,st2: string;
i,n,d,k,j: integer;
t,m: longint;
a: array[1..10000] of integer;
f: text;
const fi='SUBSUM.INP' ;
fo = 'SUBSUM.OUT' ;
Procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,n,m);
for i:=1 to n do read(f,a[i]);
close(f);
end;
Procedure out;
begin
assign(f,fo);
rewrite(f);
d:=0;
for i:=1 to n-1 do
Begin
If a[i]=m then d:=d+1;
for j:=i+1 to n do
begin
t:=0;
for k:=i to j do t:=t+a[k];
if t=m then d:=d+1;
end;
End;
if a[n]=m then d:=d+1; write(f,d);
close(f);
end;
Begin
ip;
out;
End.
uses crt;
var a:array[1..200]of real;
i,n:integer;
tb:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
tb:=0;
for i:=1 to n do tb:=tb+a[i];
writeln(tb/n:4:2);
readln;
end.