Tìm Số Chẵn đầu Tiên Và Số Lẻ đầu Tiên Trong Mảng Pascal(giúp Mk ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

leesinbimu2401
Chưa có nhóm

Trả lời
0
Điểm
10
Cảm ơn
0

Tin Học
Lớp 8
50 điểm
leesinbimu2401 - 22:31:14 03/03/2021

tìm số chẵn đầu tiên và số lẻ đầu tiên trong mảng pascal(giúp mk với ạ)

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

Yonnii
Only Once (O2)

Trả lời
4770
Điểm
86424
Cảm ơn
7996

Yonnii

04/03/2021

program phuongt;

uses crt;

var A: array[1..500] of integer;

i, n: intger;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

write('So chan dau tien trong mang la: ');

for i:=1 to n do

if A[i] mod 2 = 0 then

begin

write(A[i]);

break;

end;

writeln();

write('So le dau tien trong mang la: ');

for i:=1 to n do

if A[i] mod 2 = 1 then

begin

write(A[i]);

break;

end;

readln

end.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarGửiHủy

Cảm ơn
Báo vi phạm

- docnhanthienquyen
- Chưa có nhóm
- Trả lời
  156
- Điểm
  2121
- Cảm ơn
  69
hơi dài bạn ạ
- Yonnii
- Only Once (O2)
- Trả lời
  4770
- Điểm
  86424
- Cảm ơn
  7996
tại mình tách xuống nhìn cho dễ thôi nó cũng chẳng dài đâu ạ .-.

Đăng nhập để hỏi chi tiết avatar

docnhanthienquyen
Chưa có nhóm

Trả lời
156
Điểm
2121
Cảm ơn
69

docnhanthienquyen

04/03/2021

uses crt;var a:array[1..10001] of longint; n,i,chan,le:longint;beginclrscr;readln(n);for i:=1 to n do begin writeln('a[',i,']=');readln(a[i]);end;for i:=n downto 1 do if a[i] mod 2=0 then chan:=a[i] else le:=a[i];writeln('so chan dau tien= ',chan);write('so le dau tien= ',le);readln;end.