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.
Var a:array[1..15] of integer;
i,s:integer;
Begin
I:=1;
While i<=15 do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
s:=s+a[i];
i:=i+1;
End;
Write('Tong la ',s);
Readln;
End.
Câu 2: Viết chương trình nhập vào n phần tử kiểu số nguyên . Thực hiện các công việc sau:
+ In mảng vừa nhập ra màn hình.
+ Tính tổng các phần tử.
+ In ra phần tử lớn nhất.
+In ra phần tử nhỏ nhất.
program mang;
uses crt;
var : tong,n,i,max,min:integer;
a:array[1..100] of integer;
begin
clrscr;
tong:=0;
write('Nhap so phan tu:');readln(n);
for i:=1 to n do begin
write('Nhap phan tu thu ',i,':');readln(a[i]);
tong:= tong+a[i];
end;
max:=a[1]; min:=a[i];
for i:=2 to n do begin
if a[i] > max then max:=a[i];
if a[i]<min then min :=a[i];
end;
writeln('Tong cua day so la:',tong);
writeln('Phan tu lon nhat la:',max);
writeln('Phan tu nho nhat la:',min);
readln
end.
write(' Diem trung binh cua ',n,' mon hoc la:',tb);
readln
end.
Câu 2: Viết chương trình nhập vào n phần tử kiểu số nguyên . Thực hiện các công việc sau:
+ In mảng vừa nhập ra màn hình.
+ Tính tổng các phần tử.
+ In ra phần tử lớn nhất.
+In ra phần tử nhỏ nhất.
program mang;
uses crt;
var : tong,n,i,max,min:integer;
a:array[1..100] of integer;
begin
clrscr;
tong:=0;
write('Nhap so phan tu:');readln(n);
for i:=1 to n do begin
write('Nhap phan tu thu ',i,':');readln(a[i]);
tong:= tong+a[i];
end;
max:=a[1]; min:=a[i];
for i:=2 to n do begin
if a[i] > max then max:=a[i];
if a[i]<min then min :=a[i];
end;
writeln('Tong cua day so la:',tong);
writeln('Phan tu lon nhat la:',max);
writeln('Phan tu nho nhat la:',min);
readln
end.
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
t=0;
for (i=1; i<=n; i++) t+=a[i];
cout<<t;
return 0;
}
Bài 5:
Var a:array:[1..1000] of integer;
i,n,max:integer;
sc, sl:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');rreadlna[i]);
If a[i] mod 2 = 0 then sc:=sc+b[i];
If a[i] mod 2 <> 0 then sl:=sl+a[i];
End;
max:=a[1];
For i:=2 to n do
If a[i] > max then max:=a[i];
Writeln('Tong cac so chan la ',sc);
Writeln('Tong cac so le la ',sl);
write('So lon nhat la ',max);
Readln
End.
Câu 1:
uses crt;
var a:array[1..5]of integer;
max,i:integer;
begin
clrscr;
for i:=1 to 5 do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to 5 do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
Câu 2:
uses crt;
var a:array[1..6]of integer;
min,i:integer;
begin
clrscr;
for i:=1 to 6 do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to 6 do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
uses crt;
var a: array[1..100] of longint;
i,n,max,min: longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': ');
readln(a[i]);
end;
max:=a[1]; min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat trong mang la: ',max);
write('So nho nhat trong mang la: ',min);
readln
end.
program BaiTap;
var
A: array[1..150] of integer;
N, i, sum: integer;
begin
write('Nhap so phan tu cua day A (N <= 150): ');
readln(N);
for i := 1 to N do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
writeln('Day so vua nhap la:');
for i := 1 to N do
write(A[i], ' ');
writeln;
sum := 0;
for i := 1 to N do
if A[i] mod 2 = 0 then
sum := sum + A[i];
writeln('Tong cac phan tu chan trong day la: ', sum);
readln;
end.
var a:array[1..1000] of integer;
i,n,min:integer;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
end;
min:=a[1];
for i:=2 to n do
if min > a[i] then min:=a[i];
write('So nho nhat la ',min);
readln
end.
Câu 1:
Cách 1: While...do
Program tinh_tong;
Uses crt;
Var n,i:integer;
s:longint;
Begin
clrscr;
write('Nhap n:=');readln(n);
s:=0;i:=1;
while i<=n do
begin
writeln(i);
s:=s+i;
i:=i+1;
end;
writeln('gia tri tong:=',s);
readln;
End.
Cách 2:For...do
Program tinh_tong;
Uses crt;
Var n,i:integer;
s:longint;
Begin
clrscr;
write('nhap n:=');readln(n);
s:=0;
For i:=1 to n do s:=s+i;
writeln('Gia tri tong:=',s);
readln;
End.