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.
Câu 1:
a) var a:array[1..50]of real;
b) a[5]:=8;
c) for i:=1 to 50 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 50 do
write(a[i]:4);
Câu 2:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln(s);
readln;
end.
uses crt;
var b:array[1..25]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
readln;
end.
program PSMCG;
uses crt;
const
size = 7;
var
arr: array[1..size] of integer;
i, sum, min, temp: integer;
avg: real;
begin
clrscr;
writeln('Nhap vao day so nguyen khong am gom 7 phan tu: ');
for i := 1 to size do
begin
readln(arr[i]);
end;
writeln('Cac phan tu trong day la: ');
for i := 1 to size do
begin
write(arr[i], ' ');
end;
writeln();
sum := 0;
for i := 1 to size do
begin
sum := sum + arr[i];
end;
writeln('Tong cac phan tu la: ', sum);
avg := sum / size;
writeln('Trung binh cac phan tu la: ', avg:0:2);
min := arr[1];
for i := 2 to size do
begin
if(arr[i] < min) then
begin
min := arr[i];
end;
end;
writeln('Gia tri nho nhat la: ', min);
for i := 1 to size - 1 do
begin
for j := i + 1 to size do
begin
if(arr[i] < arr[j]) then
begin
temp := arr[i];
arr[i] := arr[j];
arr[j] := temp;
end;
end;
end;
writeln('Cac phan tu da sap xep theo thu tu giam dan:');
for i := 1 to size do
begin
write(arr[i], ' ');
end;
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,min,tam,j:integer;
begin
clrscr;
n:=100;
for i:=1 to 100 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('Gia tri nho nhat la: ',min);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Day so tang dan la: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.
Câu 1: Cú pháp khai báo mảng trong pascal:
Var <tên mảng>:array[1..n] of <kiểu dữ liệu>;
Cây 2: Khai báo mảng c gồm 20 phần tử kiểu số thực:
Var c:array[1..20] of real;
Khai báo mảng gồm 50 phần tử số học:
var A: array[1..50] of integer;
Khai thác là sao bạn nêu rõ hơn đề nha? Khai tháng dãy số gồm 100 phần là số nguyên là sao nhỉ?