Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lê Thị Vân Anh
dịch giùm mik cái này sang nhôn ngữ pascal đi #include <stdio.h> int B8_TimSoChanDauTienTrongMang(int mang[], int n) { for (int i=0;i<n;i++) { if (mang[i]%2==0) { return mang[i]; } } return -1; }
Nguyễn Lê Phước Thịnh
8 tháng 2 2022 lúc 23:28

uses crt;

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

i,n:integer;

begin

clrscr;

readln(n);

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

for i:=1 to n do 

  if a[i] mod 2=0 then 

begin

write(a[i]);

break;

end;

readln;

end.


Các câu hỏi tương tự
ytkc
Xem chi tiết
ytkc
Xem chi tiết
nguyen ngoc minh chau
Xem chi tiết
•๖ۣۜNHa•
Xem chi tiết
DCal146 anime
Xem chi tiết
lê hà linh
Xem chi tiết
Nguyễn Minh Lệ
Xem chi tiết
Nguyễn Thanh Băng
Xem chi tiết
Ba chú heo con
Xem chi tiết