Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
songohan
Xem chi tiết
Trọng khương
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 20:14

type mang=array[1..10]of integer;

function demsochiahet(a:mang):integer;

var dem,i,n:integer;

begin

dem:=0;

for i:=1 to n do 

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

demsochiahet:=dem;

end;

Yeo Bang Yeong
Xem chi tiết
smile hack
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 6 2020 lúc 16:05

Bài 1:

uses crt;

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

n,i,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

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

end;

kt:=0;

for i:=1 to n do

if a[i] mod 2<>0 then kt:=1;

if kt=0 then writeln('Thoa man')

else writeln('Khong thoa man');

readln;

end.

Hoài thịnh
Xem chi tiết
Phía sau một cô gái
20 tháng 3 2023 lúc 22:12

program XoaPhanTuAm;

var

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

     n, i, j: integer;

begin 

     write('Nhap so phan tu: ');

     readln(n); 

     for i := 1 to n do

     begin

          write('Nhap phan tu thu ', i, ': ');

          readln(arr[i]);

     end;  

     j := 0;

     for i := 1 to n do

     begin

          if arr[i] >= 0 then

          begin

               j := j + 1;

               arr[j] := arr[i];

          end;

     end;

     n := j;

     writeln('Mang sau khi xoa phan tu am:');

     for i := 1 to n do

     begin

          write(arr[i], ' ');

     end;

     readln;

end.

Phạm Thị Như Hoa
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 4 2022 lúc 14:05

Nhập:

For i:=1 to n do readln(a[i]);

Xuất:

for i:=1 to n do write(a[i]:4);

Hoàng Vlogs
Xem chi tiết
Ngoc Anh Nguyen
Xem chi tiết
Kiều Vũ Linh
14 tháng 3 2023 lúc 9:24

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.

Nguyễn Hồng Anh
Xem chi tiết