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.

30 tháng 3 2019

Program ct;

Var i,n,so le, so chan:integer;

B:Array[1..n] of integer;

Begin

Write('n=');Readln(n);

For i:=1 to n do begin Write('B[',i,']=');

Readln(B[i]);

End;

For i:=1 to n do Begin

if B[i] mod 2 <>0 then writeln('so le , ' );

If B[i] mod 2=0 then writeln('so chan ,' );

End;

Readln

End.

11 tháng 4 2019

Lời giải:

Bài 1 :

a) var A : array[1..100] of real ;

b) var B : array[1..20] of integer ;

c) A[7] := 8 ;

Bài 2 :

program hotrinhoc ;

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

i,n: integer ;

begin

write('nhap do dai cua mang'); readln(n);

write('Nhap cac gia tri cua phan tu');

for i:= 1 to n do

begin

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

end;

readln

end.

Bài 3 :

program hotrinhoc ;

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

i,n: integer ;

begin

write('Co tat ca so ban hoc sinh la'); readln(n);

write('Nhap diem mon tin cua cac ban');

for i:= 1 to n do

begin

write('Ban thu ',i,':'); readln(a[i]);

end;

readln

end.

Bài 4 : a,b giống bài 3

c)

program hotrinhoc ;

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

i,n,tong : integer ;

begin

write('nhap do dai cua mang'); readln(n);

write('Nhap cac gia tri cua phan tu');

for i:= 1 to n do

begin

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

end;

tong:=0;

for i:= 1 to n do

if a[i] > 0 then tong:=tong+1;

write('Ket qua la',tong);

readln

end.

Bài 5: a và b tương tự bài 3

c+d )

program hotrinhoc ;

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

i,n: integer ;

begin

write('nhap do dai cua mang'); readln(n);

write('Nhap cac gia tri cua phan tu');

for i:= 1 to n do

begin

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

end;

for i:= 1 to n do

c) if i mod 2= 0 then write('Cac so chan cua mang la:',i);

d) if i mod 2= 1 then write('Cac so le cua mang la:',i);

readln

end.

15 tháng 5 2023

'''python

a. DTB = []

siso = int(input("Nhập số lượng học sinh trong lớp: "))

b. for i in range(siso):

diem = float(input(f"Nhập điểm của học sinh thứ {i+1}: "))

DTB.append(diem)

c. tong=sum(DTB)

d. print(f"Tổng điểm của lớp là: {tong}")'''

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t;

int main()

{

cin>>n;

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

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

cout<<endl;

t=0;

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

cout<<t;

return 0;

}

a: 

#include <bits/stdc++.h>

using namespace std;

double a[1000];

int n,i;

int main()

{

cin>>n;

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

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

return 0;

}

b: 

#include <bits/stdc++.h>

using namespace std;

long long a[50],n,i,t;

int main()

{

cin>>n;

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

t=0;

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

cout<<t;

return 0;

}

30 tháng 4 2022

bạn có thể nào làm cho mình phần b làm theo kiểu lớp 8 đc không chứ nhìn như này mik ko hiểu

 

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.

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.

11 tháng 11 2018

LxGxGCqbtAfG.png

Bình luận hoặc Báo cáo
về câu hỏi!
7 tháng 6 2021

uses crt;
var a:array[1..1000000] of longint;
      n,i,s:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do 
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
                  if a[i] mod 2=1 then inc(s,a[i]);
            end;
      write('Tong cac so le: ',s);
      readln;
end.