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.

14 tháng 3 2023

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

i,s:integer;

Begin

For i:=1 to 100 do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

If a[i] mod 2 <> 0 then s:=s+a[i];

End;

Write('Tong la ',s);

Readln;

End.

15 tháng 3 2023

em cảm ơn ạ <3

5 tháng 3 2023

#include <iostream>
using namespace std;

int main() 

{

         int N, sum = 0, num;

         float average;

         cout << "Nhap so phan tu cua day: ";

         cin >> N;

        // Vòng lặp để nhập dữ liệu cho các phần tử trong dãy

       for (int i = 0; i < N; i++) {

              cout << "Nhap phan tu thu " << i+1 << ": ";

              cin >> num;

              sum += num; // tính tổng của dãy

}

// tính trung bình cộng của dãy

average = (float) sum / N;

cout << "Trung binh cong cua day la: " << average;

return 0;

}

  
11 tháng 3 2023

Câu 1:

program mangsonguyen;

var

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

     i, n: integer;

begin

     writeln('Nhap so phan tu trong mang: ');

     readln(n);

     writeln('Nhap cac phan tu cua mang: ');

     for i := 1 to n do

          readln(a[i]);

     writeln('Mang vua nhap la:');

     for i := 1 to n do

          write(a[i], ' ');

end.

11 tháng 3 2023

Câu 2: 

program trungbinhcong;

var

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

     i, n, k, sum: integer;

     avg: real;

begin

     writeln('Nhap so phan tu trong mang: ');

     readln(n);

     writeln('Nhap cac phan tu cua mang: ');

     for i := 1 to n do

          readln(a[i]);

     writeln('Nhap so k: ');

     readln(k);

     sum := 0;

     for i := 1 to n do

     begin

          if a[i] <= k then

               sum := sum + a[i];

     end;

     if sum > 0 then

     begin

          avg := sum / n;

          writeln('Trung binh cong cac phan tu co gia tri <= ', k, ' la: ', avg:0:2);

     end

     else

     begin

          writeln('Khong co phan tu nao co gia tri <= ', k);

     end;

end.

Câu 3: 

program DemSoNguyenTo;

var

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

     i, j, n, count: integer;

     laSoNguyenTo: boolean;

begin

     write('Nhap so phan tu cua mang: ');

     readln(n);

     write('Nhap cac phan tu cua mang: ');

     for i := 1 to n do

          readln(a[i]);

     count := 0;

     writeln('Cac so nguyen to trong mang la: ');

     for i := 1 to n do

     begin

          laSoNguyenTo := true;

          for j := 2 to (a[i] div 2) do

          begin

               if (a[i] mod j = 0) then

               begin

                    laSoNguyenTo := false;

                    break;

               end;

          end;

          if laSoNguyenTo and (a[i] > 1) then

          begin

               writeln(a[i]);

               count := count + 1;

          end;

     end;

     writeln('Tong so cac so nguyen to la: ', count);

     readln;

end.

9 tháng 12 2023

program UCLN;

var

     a, b, UCLN: integer;

begin

     write('Nhập số a: ');

     readln(a);

     write('Nhập số b: ');

     readln(b);

     while a <> b do

     begin

          if a > b then

               a := a - b

          else

               b := b - a;

     end;

     UCLN := a;

     writeln('Ước số chung lớn nhất của ', a, ' và ', b, ' là ', UCLN);

end.

undefined

Theo C++ nhé bạn

Codeblacks 

uses crt;

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

i,n,dem:integer;

begin

clrscr;

for i:=1 to 10 do 

  begin

repeat

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

until a[i]>0;

end;

writeln('Day so vua nhap la: ');

for i:=1 to 10 do 

  write(a[i]:4);

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then inc(dem);

writeln;

writeln('So luong so chan la: ',dem);

readln;

end.

uses crt;

var s:string;

i,d,dem:integer;

begin

clrscr;

write('Nhap xau S:'); readln(s);

d:=length(s);

writeln('Cac ki tu so co trong xau S:'); 

dem:=0;

for i:=1 to d do 

  if s[i] in ['0'..'9'] then

begin

write(s[i]:4);

inc(dem);

end;

writeln;

writeln('So ki tu chu so co trong xau S: ',dem);

for i:=1 to d do 

  if s[i] in ['0'..'9'] then s[i]:='A';

writeln('Xau sau khi doi la: ',s);

readln;

end.

uses crt;
var st,k,t:string;
    d,dem,i:integer;
begin

clrscr;

readln(st);

d:=length(st);

k='';

dem=1;

for i:=2 to d do

      begin 

        if st[i]=st[i-1] then inc(dem);

        if st[i]<>st[i-1] then

        btegin

          str(dem,t);

          if dem>1 then k:=k+t+st[i-1];

          else k:=k+st[i-1];

          dem=1;

        end;

        if (i=d) then 

           begin

           str(dem,t);

           if dem>1 then k:=k+t+st[i];

           else k:=k+st[i];

           end;

    end;

    write(k);

readln;

end.

9 tháng 8 2023

ABABUUC nén sai bạn ơi