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.
Mình thử trả lời các bạn xem có đúng ko nha!!!
__________
program CP;
var scs,tong,m,i,z,k:longint;
A:array[1..10000000] of longint;
f:text;
begin
assign(f, 'CP.INP');
reset(f);
readln(f,m);
for i:=1 to m do read(f,A[i]);
close(f);
tong:=0;
scs:=0;
for z:=1 to m do
for k:=1 to A[z] do
if (k*k=A[z]) then
begin
scs:=scs+1;
tong:=tong+A[z];
end;
assign(f, 'CP.OUT');
rewrite(f);
if (scs<>0) then writeln(f, tong) else writeln(f, '0');
close(f);
end.
#include <iostream>
#include <fstream>
using namespace std;
long int x[4],n,a[5001],kt[5001],ktvt[5001],MAXtong,dem=0;
int TRY(int i)
{
for(int j=x[i-1]+1;j<=n;j++)
if(kt[a[j]]==0)
{
x[i]=j;
kt[a[j]]=1;
if(i==3)
{
if(a[x[3]]==(float)(a[x[2]]+a[x[1]])/2||a[x[2]]==(float)(a[x[3]]+a[x[1]])/2||a[x[1]]==(float)(a[x[2]]+a[x[3]])/2)
{
dem++;
if(a[x[1]]+a[x[2]]+a[x[3]]>MAXtong)
{
MAXtong=a[x[1]]+a[x[2]]+a[x[3]];
}
}
}
else
TRY(i+1);
kt[a[j]]=0;
}
}
int main()
{
ifstream f("boba.inp");
f>>n;
for(int i=1;i<=n;i++)
{
f>>a[i];
}
x[0]=0;
MAXtong=-1000000000;
fill_n(kt,1001,0);
TRY(1);
cout<<dem<<endl;
if(dem>0)
{
cout<<MAXtong;
}
return 0;
}
Mình mới đạt tới trình độ quy hoạch động nên bạn thông cảm
Xin lỗi bạn, mình không hỗ trợ C. mình chỉ biết pascal thôi
const fi='tamhop.inp';
fo='tamhop.out';
var f1,f2:text;
a:array[1..100]of integer;
n,i,j,k,dem,max,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
{--------------------------------xu-ly--------------------------------}
dem:=0; max:=0;
for i:=1 to n-2 do
begin
for j:=i+1 to n-1 do
begin
for k:=j+1 to n do
begin
if (a[i]=(a[j]+a[k])/2) or (a[j]=(a[i]+a[k])/2) or (a[k]=(a[i]+a[j])/2) then
begin
inc(dem);
t:=a[i]+a[j]+a[k];
if max<=t then max:=t;
end;
end;
end;
end;
writeln(f2,dem);
writeln(f2,max);
close(f1);
close(f2);
end.
Cho mình hỏi nếu đếm các phần tử có giá trị lẻ trong xâu thì làm như thế nào vậy
uses crt;
var a:array[1..50]of integer;
t,i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=50);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until (0<=a[i]) and (a[i]<=32767);
end;
writeln('Day A=');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 2=1 then t:=t+a[i];
writeln('Tong cac so le la: ',t);
writeln('Cac so le trong day A la: ');
for i:=1 to n do
if a[i] mod 2=1 then write(a[i]:4);
readln;
end.
Bài 2:
uses crt;
var a:array[1..199]of integer;
i,n:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{----------------------------xuat-------------------------------}
for i:=1 to n do write(a[i]:4);
readln;
end.
Bài 3:
uses crt;
var a:array[1..199]of integer;
i,n,x,dem:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{----------------------------xu-ly-------------------------------}
write('x='); readln(x);
dem:=0;
for i:=1 to n do
if a[i]=x then inc(dem);
writeln('trong day co ',dem,' gia tri ',x);
readln;
end.
Program Vidu;
Uses crt;
Type Mang1C = array[1..10] of Integer; {khai báo tên mảng – cách 2}
Var A:Mang1C; {Đặt tên mảng là A}
i:integer;
Begin
clrscr;
Writeln('Nhap gia tri cho mang A');
For i:=1 to 10 do
Begin
Write('A[',i,'] = ');
Readln(A[i]); { đọc vào giá trị cho A thứ i}
End;
Write('Danh sach cac phan tu trong mang A: ');
For i:=1 to 10 do
Write(A[i]:5);
Readln;
End.
Bạn ơi! Mình viết code thôi, vì chưa có thời gian nên mình chưa test lại, bạn test lại giúp mình, nếu sai thì báo mình nha! (Bạn cố sữa lỗi trước nhé!)
program abc;
uses crt;
var
a: array [1..100] of integer;
i, n, d, d2, d5: integer;
begin
clrscr;
write ('Nhap n: ');
readln (n);
for i:=1 to n do
begin
write ('Nhap so thu ', i, ': ');
readln (a[i]);
end;
d:=0; d2:=0; d5:=0;
for i:=1 to n do
begin
if a[i] <0 then d:=d+1;
if a[i] mod 2 = 0 then d2:=d2+1;
if a[i] mod 5 = 0 then d5:=d5+1;
end;
writeln ('Co ', d, ' so am trong mang.');
writeln ('Co ', d2, ' so chia het cho 2.');
writeln ('Co ', d5, ' so chia het cho 5.');
writeln;
writeln ('Nhan Enter de ket thuc chuong trinh!');
readln;
end.
uses crt;
var a:array[1..199]of integer;
n,i,t:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{----------------------------------cau-1--------------------------------}
t:=0;
for i:=1 to n do
if a[i] mod 2=1 then t:=t+a[i];
writeln('tong cac phan tu le trong mang la: ',t);
{---------------------------------cau-2------------------------------}
writeln('cac phan tu vua nhap co chi so chan la: ');
for i:=1 to n do
if i mod 2=0 then write(a[i]:4);
readln;
end.