Nhập dãy số n phần tử n<=10, giá trị từng phần tử số. Viết chương trình
1. Nhập cá phần tử và giá trị từng phần tử
2. Tính tích phần tử mảng
3. In ra. Phần tử có giá trị lớn nhất
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
5 tháng 5 2021
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
readln;
end.
5 tháng 5 2021
Bài 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
5 tháng 5 2021
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
5 tháng 5 2021
Bài 2:
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
17 tháng 3 2021
2:
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i]<0 then write(i:4);
readln;
end.
KV
24 tháng 4 2023
Var a:array[1..100] of integer;
i,n:integer;
s:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
s:=s+a[i];
End;
Write('Cac phan tu vua nhap la ');
For i:=1 to n do
Write(a[i]:8);
Writeln;
Write('Tong cua chung la ',s);
Readln
End.
ML
4 tháng 4 2023
Program HOC24;
Var i,n: integer;
T: longint;
Begin
Write('Nhap so phan tu n: ');
Readln(n);
For i:=1 to n do
Begin
Write('a[',i,]='); readln(a[i]);
End;
T:=0;
For i:= 1 to n do
If a[i]<0 then t:=t+a[i];
Write(' Tong cac phan tu am la: ',t);
Readln
End.
5 tháng 4 2023
program TongPhanTuAm;
var n, i, su: integer; // s là tổng các phần tử âm trong mảng a:array[1..100] of integer; // khai báo mảng a có tối đa 100 phần tử
begin
write('Nhap so phan tu n (>= 15): ');
readln(n);
// Nhập giá trị cho mảng a
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ' cua day: ');
readln(a[i]);
end;
// Tính tổng các phần tử âm trong mảng a
s := 0;
for i := 1 to n do
begin
if (a[i] < 0) then
begin
s := s + a[i];
end;
end;
writeln('Tong cac phan tu am trong day la: ', s);
readln;
end.
26 tháng 4 2021
Câu 1:
uses crt;
var a:array[1..100]of real;
i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t:4:2);
readln;
end.
26 tháng 4 2021
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=1;
for i:=1 to n do
t:=t*a[i];
writeln(t:4:2);
readln;
end.
program NhapMang;
var
mang: array[1..10] of integer;
n, i, tich, max: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
tich := 1;
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ' cua mang: ');
readln(mang[i]);
tich := tich * mang[i];
end;
max := mang[1];
for i := 2 to n do
if mang[i] > max then
max := mang[i];
writeln('Tich cua cac phan tu trong mang la: ', tich);
writeln('Phan tu co gia tri lon nhat la: ', max);
readln;
end.