Viết chương trình nhập vào 1 dãy số nguyên ,tìm số nguyên ,tìm số lớn nhất ,số nhỏ nhất ,các số chia hết cho 2,và tổng của các phần tử trong dãy?( giúp mình với).
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.
sai ở chỗ:
1) i=1; đúng phải là i:=10;
2) i=i-1; đúng phải là i:=i-1;
Câu 4: Ý nghĩa là nhập một dãy số từ bàn phím. Xuất ra màn hình dãy số đó
Câu 3:
Cú pháp: <tên mảng>[<chỉ số>]
Program HOC24;
var i: byte;
begin
for i:=1 to 20 do writeln('Toi yeu Viet Nam');
readln
end.
var i: integer;
begin
for i:=1 to 20 do writeln('Toi yeu Viet Nam');
readln
end.
uses crt;
var a,b,c,d:integer;
begin
clrscr;
readln(a,b,c,d);
writeln(a+b+c+d);
writeln(a*b*c*d);
readln;
end.
uses crt;
var a:array[1..10]of integer;
i,t:integer;
begin
clrscr;
for i:=1 to 10 do readln(a[i]);
t:=0;
for i:=1 to 10 do t:=t+a[i];
writeln(t);
readln;
end.
Program HOC24;
var m,n,i,d: integer;
t: longint;
function nt(x: integer): boolean;
var j: integer;
begin
nt:=true;
if (x=2) or (x=3) then exit;
nt:=false;
if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;
j:=5;
while j<=trunc(sqrt(x)) do
begin
if (x mod j=0) or (x mod (j+2)=0) then exit;
j:=j+6;
end;
nt:=true;
end;
begin
write('Nhap m: '); readln(m);
write('Nhap n: '); Readln(n);
d:=0; i:=2;
while d<n do
begin
if nt(i) and (i>m) then
begin
d:=d+1;
t:=t+i;
end;
i:=i+1;
end;
write('Ket qua: ',t);
readln
end.
uses crt;
var a:array[1..100]of integer;
i,n,t,ln,nn:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
ln:=a[1];
nn:=a[1];
t:=0;
for i:=1 to n do
begin
if ln<a[i] then ln:=a[i];
if nn>a[i] then nn:=a[i];
t:=t+a[i];
end;
writeln(ln);
writeln(nn);
writeln(t);
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
var n,i,max,min,s: integer;
a: array[1..100] of integer;
begin
readln(n);
for i:=1 to n do begin
readln(a[i]);
s:=s+a[i];
end;
max:=a[1]; min:=a[1];
for i:=2 to n do begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('MAX=',max,' | MIN=',min);
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' '); writeln;
write('Tong = ',s);
readln
end.