K
Khách

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.

Tham khảo:

uses crt;
var a:array[1..5] of integer;
    i,t:integer;
    tb:real;
begin
     for i:=1 to 5 do readln(a[i]);
     t:=0;
    for i:=1 to 5 do t:=t+a[i];
    tb:=t/5;
    write(Tb);
    readln;
end.

27 tháng 1 2022

Uses crt;

Var a,b,c,d,e,g:longint;

Begin

Clrscr;

writeln(so thu nhat la);readln(a);

writeln(so thu nhat la);readln(b);

writeln(so thu nhat la);readln(c);

writeln(so thu nhat la);readln(d);

writeln(so thu nhat la);readln(e);

g:=a+b+c+d+e;

Writeln('Tong scua 5 so la',g);

readln;

end.

Đề khó hiểu quá bạn

7 tháng 12 2021

mình chưa hiểu rõ đề lắm nên mình sẽ làm tạm như thế này còn nếu bạn muốn kiểu khác thì cứ bình luận để mình làm lại.

câu 1 :

#include<iostream>

using namespace std;

int main() {

long long a;

cout << "giá trị của a: "; cin >> a;

if (a % 2 != 0 && a % 5 == 0) {

cout << "a là một số lẻ chia hết cho 5"

} else {

cout << "a không phải là một số lẻ chia hết cho 5";

}

return 0;

}

câu 2 :

#include<iostream>

using namespace std;

int main() {
int a;

cout << "giá trị của a là: "; cin >> a;

if (a % 2 == 0 && a % 5 == 0) {

cout << "a là một số chẵn chia hết cho 5";

} else {
cout << "a không phải là một số chẵn chia hết cho 5";

}

return 0;

}

(Mình viết ở ngôn ngữ C++)

*Viết chương trình nhập 10 số nguyên từ bàn phím. In ra màn hình dãy số vừa nhập

uses crt;

var a:array[1..10]of integer;

i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to 10 do 

  write(a[i]:4);

readln;

end.

*Viết chương trình nhập 10 số nguyên từ bàn phím .in ra các số lẻ

uses crt;

var a:array[1..10]of integer;

i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to 10 do 

  if a[i] mod 2<>0 then write(a[i]:4);

readln;

end.

25 tháng 7 2021

cau 1:

uses crt;

var a:array[1..100] of integer;

n,i,min: integer;

begin

readln(n);

for i:=1 to n do

readln(a[i]);

min:=a[1];

for i:=2 to n do

if min>a[i] then min=a[i];

writeln(a[i]);

readln;

end.

cau 2:

uses crt;

g:text;

s:string;

const fo='CHUSO.TXT';

begin

assign(g,fo);

rewrite(g);

readln(s);

for i:=1 to length(s) do

if not((s[i] in ['a'..'z'])and(s[i] in ['A'..'Z])) then delete(s,i,1);

writeln(g,s);

end.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

 

#include <bits/stdc++.h>

using namespace std;

long long a[5],i,x;

int main()

{

for (i=1; i<=5; i++)

{

cin>>a[i];

}

for (i=1;i<=5;i++)

cout<<a[i]<<endl;

return 0;

}

uses crt;

var a:array[1..100]of integer;

i:integer;

begin

clrscr;

for i:=1 to 100 do 

  begin

repeat

write('A[',i,']='); readln(a[i]);

until a[i]>0;

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

18 tháng 3 2023

Uses crt;

var n,i,x,u: integer;

begin clrscr;

readln(n);

for i:=1 to n do begin

readln(x);

u:=u+x;

end;

writeln(u);

readln;

end.