Viết chương trình nhập vào 1 dãy số nguyên gồm M phần tử, tính tổng các số âm trong dãy số đó. In ra màn hình giá trị tổng
Viết chương trình nhập vào 1 dãy số nguyên gồm M phần tử, tính tổng các số âm trong dãy số đó. In ra màn hình giá trị tổng
Program HOC24;
var i,m: integer;
t: longint;
a: array[1..1000] of integer;
begin
write('Nhap so phan tu M: '); readln(m);
for i:=1 to m do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
for i:=1 to m do if a[i]<0 then t:=t+a[i];
write('Tong la: ',t);
readln
end.
Nhập dãy gồm N phần tử
a)Sắp xếp dãy tăng dần
b) nhập số x từ bàn phím
sau đó nhập số x vào mảng mà vẫn đảm bảo tính tăng dần
Giúp mik vs ạ! Cảm ơn
program sapxep;
var
i, j, n, x: integer;
a: array[1..100] of integer;
begin
write('Nhap so phan tu trong day: ');
readln(n);
for i := 1 to n do
begin
write('a[', i, ']= ');
readln(a[i]);
end;
for i := 1 to n - 1 do
for j := i + 1 to n do
if a[i] > a[j] then
begin
x := a[i];
a[i] := a[j];
a[j] := x;
end;
write('Nhap so x: ');
readln(x);
for i := 1 to n do
begin
if x <= a[i] then
begin
for j := n downto i + 1 do
a[j] := a[j-1];
a[i] := x;
break;
end;
end;
writeln('Day so vua sap xep va them phan tu x:');
for i := 1 to n do
write(a[i], ' ');
writeln;
end.
Uses crt;
var i,n: integer;
begin clrscr;
i:=12345;
while(i<>0) do begin
n:=i mod 10; write(n,' ');
i:=i div 10;
end;
readln;
end.
Program HOC24;
var i: byte;
begin
i:=5;
while i>0 do
begin
write(i,' ');
i:=i-1;
end;
readln
end.
program HOC24;
var
i: integer;
begin
i := 5;
while i >= 1 do
begin
write(i, ' ');
i := i - 1;
end;
end.
Nói nhanh: Từ dãy số nguyên A ban đầu gồm n phần tử: a1,a2,...,an (ai ). An và Bình thay phiên nhau nói nhanh các số sao cho số thứ nhất là phần tử đầu tiên của dãy A, số thứ hai là tổng của hai phần tử đầu tiên của dãy A, số thứ i là tổng của i phần tử đầu tiên của dãy A.
Yêu cầu: Hãy viết lại các số An và Bình nói nhanh đó;
Dữ liệu gồm:
- Dòng 1: một số nguyên dương n (n )
- Dòng 2: ghi lần lượt các số a1, a2, …, an tương ứng với các số của dãy A.
cách mô tả thuật toán viết chương trinh nhập n số nguyêntừ bàn phím và in ra màng hình số lớn nhất giúp em giải thuật toán với ạ xin cảm ơn
program timso;
var
n, i, max: integer;
begin
write('Nhap so luong so nguyen: ');
readln(n);
max := -maxint;
for i := 1 to n do
begin
write('Nhap so thu ', i, ': ');
readln(num);
if num > max then
max := num;
end;
writeln('So lon nhat la: ', max);
end.
Nhập các dãy số từ bàn phím Xác định số nhỏ nhất và lớn nhất trong các dãy số vừa nhập Tính tổng các dãy số đó Tính trung bình của tổng các số đó
program phiasaumocogai;
var
n, i, num, min, max, sum: integer;
average: real;
begin
write('Nhap so luong day so can kiem tra: ');
readln(n);
min := maxint;
max := -maxint;
sum := 0;
for i := 1 to n do
begin
write('Nhap day so thu ', i, ': ');
readln(num);
if num < min then
min := num;
if num > max then
max := num;
sum := sum + num;
end;
average := sum / n;
writeln('So nho nhat la: ', min);
writeln('So lon nhat la: ', max);
writeln('Tong cac day so la: ', sum);
writeln('Trung binh cua cac so la: ', average:0:2);
end.
Viết chương trình nhập vào 1 dãy số nguyên gồm 80 phần tử in ra màn hình dãy số vừa nhập
program In_Day_So_Nguyen;
uses crt;
var
a: array[1..80] of integer;
i: integer;
begin
clrscr;
writeln('Nhap vao day so nguyen: ');
for i := 1 to 80 do
begin
readln(a[i]);
end;
writeln('Day so nguyen ban vua nhap la: ');
for i:=1 to 80 do
begin
write(a[i], ' ');
end;
readln;
end.
Nhập điểm trung bình của học sinh tổ 1(có 12 học sinh)
-Có bao nhiêu học sinh đạt điểm cao nhất?(là học sinh thứ mấy trong tổ)
Nhập điểm trung bình của học sinh tổ 1(có 12 học sinh):
-Điểm cao nhất của tổ 1 là bao nhiêu?
-Điểm thấp nhất của tổ 1 là bao nhiêu?
-Có bao nhiêu học sinh đạt điểm cao nhất?(là học sinh thứ mấy trong tổ)
-Có bao nhiêu học sinh đạt điểm thấp nhất?
Viết một chương trình nhập và in một mảng