Tìm kiếm

Keywords

Latest topics

Wed Apr 24, 2024 9:15 pm by Admin

» Bài kiểm tra giữa Học kỳ II

Wed Apr 05, 2023 8:00 am by Nguyễn Đức Mạnh

» Bài giữa kì 2

Mon Apr 03, 2023 8:34 am by Khách viếng thăm

» Bài giữa kì tin Lê Đức Anh

Sun Apr 02, 2023 8:33 pm by Tendalda06

» Nghiêm Tuấn Tú

Sat Apr 01, 2023 9:03 am by Nghiêm Tuấn Tú

» Nguyễn Trần Ý Nhi

Sat Apr 01, 2023 8:23 am by Nguyễn Trần Ý Nhi

» Nguyễn Kim Anh

Sat Apr 01, 2023 12:05 am by Khách viếng thăm

» Trần Thanh Trà

Fri Mar 31, 2023 11:10 pm by Trần Thanh Trà

May 2024

bai2d7.pas

Tác giả

Thông điệp

Lệ

Tổng số bài gửi : 16
Join date : 06/12/2022

bai2d7.pas Empty

Tiêu đề: bai2d7.pas Fri Dec 16, 2022 8:55 pm

uses math; var i,j,m,n,s:longint; a:array [1..1000,1..1000] of longint; begin assign(input,'bai2d7.inp'); reset(input); assign(output,'bai2d7.out'); rewrite(output); read(m,n); for i:=1 to n do for j:=1 to m do read(a[i,j]); s:=0; for i:=1 to n do for j:=1 to m do begin if a[i,j] mod 2=0 then s:=s+a[i,j]; end; write(s); close(input); close(output); end.

bai2d7.pas

Trang 1 trong tổng số 1 trang

Permissions in this forum:

Bạn được quyền trả lời bài viết

Chuyển đến: