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..200] of integer;
x,y,i,n:integer;
begin
write('n = ');readln(n);
write('x = ');readln(x);
write('y = ');readln(y);
for i:=1 to n do
begin
write('a[',i,' = ');readln(a[i]);
end;
for i:=1 to n do
if a[i] = x then a[i]:=y;
writeln('Mang sau khi thay the ');
for i:=1 to n do write(a[i]:10);
readln;
end.
Bài 2:
#include <bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
cin >>x>>y;
cout<<x<<" "<<y;
swap(x,y);
cout<<x<<" "<<y;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
int x,y;
int main()
{
cin>>x>>y;
cout<<"Gia tri cua x la: "<<x;
cout<<"\nGia tri cua y la: "<<y;
Return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,ln,t;
int main()
{
cin>>n;
ln=LLONG_MIN;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
ln=max(ln,x);
t+=x;
}
cout<<"So lon nhat la: "<<ln<<endl;
cout<<"Tong la: "<<t;
return 0;
}
Program HOC24;
var min,max,i,n: integer;
a: array[1..1000] of integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1]; min:=a[1];
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('Gia tri lon nhat la: ',max);
write('Gia tri nho nhat la: ',min);
readln
end.
Câu 1:
a) (x+y)/(x-y)
b) sqr(b)-4*a*c;
Câu 2:
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap chieu dai:'); readln(a);
write('Nhap chieu rong:'); readln(b);
writeln('Chu vi la: ',(a+b)*2);
writeln('Dien tich la: ',a*b);
readln;
end.
Câu 3:
Biến là công cụ trong lập trình. Trong lập trình, biến là tên của vùng nhớ được dùng để lưu trữ dữ liệu và dữ liệu được biến lưu trữ có thể thay đổi trong khi thực hiện chương trình.
Cú pháp khai báo biến: Var <tên biến>:<kiểu dữ liệu>;
Ví dụ: var a:integer;
program BaiTapMang;
var
n, i, max, min, s: longint;
a: array[1..100] of integer;
begin
// Nhập số phần tử của mảng
write('Nhap so phan tu cua mang: ');
readln(n);
// Nhập giá trị từng phần tử của mảng
for i := 1 to n do
begin
write('Nhap gia tri phan tu thu ', i, ': ');
readln(a[i]);
end;
// Xuất mảng theo chiều ngang
writeln('Mang vua nhap la:');
for i := 1 to n do
write(a[i], ' ');
// Tìm giá trị lớn nhất và nhỏ nhất của mảng
max := a[1];
min := a[1];
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;
writeln('Gia tri lon nhat cua mang la: ', max);
writeln('Gia tri nho nhat cua mang la: ', min);
// Tính tổng các phần tử âm của mảng
s:= 0;
for i := 1 to n do
begin
if a[i] < 0 then
s:= s + a[i];
end;
writeln('Tong cac phan tu am cua mang la: ', s);
readln;
end.
