uses crt;
var a:array[1..100]of integer;
i,n,ln:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do if (a[i] mod 2=0) then write(a[i]:4);
writeln;
ln:=a[1];
for i:=1 to n do
if ln<a[i] then ln:=a[i];
writeln(ln);
readln;
end.
Giúp mik vs mik sắp thì r ,mik cảm ơn trc ạ
Giúp vs ạ mik rất gấp
Viết chương trình tính tổng bình phương S = 1^+ 2^2 + 3^2 + … +n^2 , với n là số nguyên dương được nhập từ bàn phím.
Mn lm giúp mik bài này vs ạ. Mik cảm ơn ạ
Viết chương trình tính tích của N số tự nhiên bằng câu lệnh lặp .
giúp mik vs ạ!
Viết ct nhập một dãy số nguyên a gồm n phần tử.in ra số nguyên tố
Giúp mik vs ạ cần gấp lắm!
viết chương trình nhập vào 2 số a, b và kiểm tra xem hai số đó là âm hay dương. Nếu a là dương thì in ra (a+b)^2
Ai giúp mik vs ạ! Mik đag cần gấp
Tìm lỗi sai của chương trình sau và sửa lại cho đúng:
Program câu 1;
Var n: Integer; s:real;
Begin
Writeln(‘ Nhap gia tri n=’); Readln;
S:=0;
While n >0 do
s:=s+n/2; n:=n-1;
write(‘tong s = ‘, s:8:2);
Readln;
End.
Mn giải giúp mik vs ạ. Mik cảm ơn ạ
Mn ơi viết cho mik một chương trình pascal có đủ các câu lệnh sau : Cl điều kiện(If... then... else) , Cl lặp(for...to.. do) , Cl lặp vs số lần chưa biết trước ( While... do) vs ạ Mik cảm ơn trc ạ
Mọi người giúp mik vs nhé, mik cần gấp, sắp thi rồi. Mik cảm ơn trc ạ: C1: nhập vào 1 mảng gồm n phần tử, tính giá trị trung bình của dãy số đó. C2: Viết chương trình nhập dãy n số và in ra tổng các số chẵn, tổng các số lẻ trong dãy cần nhập. C3: viết chương trình nhập dãy n số và cho biết số nhỏ nhất trong các số vừa nhập là số thư mấy?
