Bài tập về kiểu mảng trong pascal
N<= 20.
Bài 1: Tính tổng bình phương các phần từ ở vị trí lẻ
Bài 2: Hãy liệt kê phần tử có số lần xuất hiện nhiều nhất trong mảng
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.
Program hotrotinhoc;
var x,i,max,n: integer;
a,b: array[1..20] of integer;
begin
write('N='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
inc(b[a[i]]);
end;
max:=0;
for i:=1 to n do
if b[a[i]]>max then
begin
max:=b[a[i]];
x:=a[i];
end;
write('Phan tu co so lan xuat hien nhieu nhat trong mang la :',x);
readln
end.
#include <iostream> #include <algorithm> using namespace std; int main() { int a[] = { 5,5,5,5,5,4,4,4,4,3,3,3,2,2,1 }; int n = sizeof(a)/sizeof(a[0]); sort(a,a+n); int i = 0, max = 0,index = 0; int frequency; while(i < n) { frequency = 1; while(a[i] == a[i+1]) { frequency++; i++; } if(max < frequency) { max = frequency; index = i; } i++; } cout << "Maximum frequency: " << max << endl; cout << "Element has maximum frequency factor: " << a[index] << endl; return 0; }
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;
Mọi người giúp mình bài này với ạ :
Viết chương trình pascal nhập mảng và tìm số nhỏ thứ k trong mảng
uses crt;
var a:array[1..100]of integer;
i,n,t,j,tam:integer;
begin
clrscr;
readln(n,k);
for i:=1 to n do readln(a[i]);
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;
write(a[k]);
readln;
end.
program sonho;
var
arr:array[1..100] of integer;
k, n, i, min: integer;
begin
write('Nhap n: ');
readln(n);
write('Nhap cac phan tu cua day: ');
for i := 1 to n do
begin
readln(arr[i]);
end;
write('Nhap k: ');
readln(k);
min := arr[1];
for i := 2 to k do
begin
if (arr[i] < min) then
min := arr[i];
end;
writeln('So nho thu ', k, ' trong day la: ', min);
end.
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.
program bt;
uses crt;
var n,i,vitri:word;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so phan tu cua mang:');readln(N);
writeln('nhap mang:');
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
vitri=0;
for i:=1 to n do
if a[i]<0 then
begin
writeln(' so am dau tien la:',a[i]);
vitri:=i;
break;
end;
if vitri=0 then write('khong co so nguyen am trong mang')
else write('vi tri la:',vitri);
readln;
end.
Tham khảo:
a:
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t1,t2;
int main()
{
cin>>n;
t1=0;
t2=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) t1=t1+x;
else t2=t2+x;
}
cout<<t1<<" "<<t2;
return 0;
}
uses crt;
var a:array[1..100]of integer;
i,n,t,s,t1,t2:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
s:=1;
t1:=0;
t2:=0;
for i:=1 to n do
begin
t:=t+a[i];
s:=s*a[i];
if a[i] mod 2=0 then t1:=t1+a[i]
else t2:=t2+a[i];
end;
writeln(t);
writeln(s);
writeln(t1);
writeln(t2);
readln;
end.
Bài 2:
uses crt;
var x,i,n,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then inc(dem);
end;
writeln(dem);
readln;
end.
Bài 1:
uses crt;
var a:array[1..20]of integer;
i,n,t:integer;
begin
clrscr;
write('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 i mod 2=1 then t:=t+sqr(a[i]);
writeln('tong binh phuong cac phan tu o vi tri le la: ',t);
readln;
end.