Giúp mình giải 2 bài này với ạ Câu 1: Viết chương trình - Đọc từ tệp ''DULIEU.INP'' 2 số nguyên M và N (M<N) - Tính tổng các số lẻ trong phạm vi từ M đến N - Ghi kết quả ra tệp ''KETQUA.OUT'' Câu 2: Sử dụng chương trình con lập trình - Nhập vào mảng A gồm N phần tử thuộc kiểu nguyên (0< N < 103). Viết chương trình tìm phần từ nhỏ nhất của mảng A. ( Sử dụng chương trình con lập trình) - Tìm phần tử lớn nhất trong dãy A.(Sử dụng chương trình con lập trình) - Đếm phần tử chẵn, lẻ trong dãy A.(Sử dụng chương trình con lập trình) - Tổng các phần tử chẵn, lẻ trong dãy A.(Sử dụng chương trình con lập trình

1. program phuongt; uses crt; var ip, op: text; m, n, s, i: integer; begin clrscr; assign(ip, 'E: DULIEU.txt'); assign(op, 'E: KETQUA.txt'); reset(ip); rewrite(op); readln(ip, m, n); writeln(op, 'm = ', m); writeln(op, 'n = ', n); if m<n then for i:=m to n do if i mod 2 <> 0 then s:=s+i; write(op, 'Tong le = ', s); close(ip); close(op); write('Mo file de xem ket qua'); readln end. 2. program phuongt; uses crt; type A= array[1..102] of byte; var n, i: integer; B: A; {---- Phan tu nho nhat ----} function ptnn(K: A): integer; var min, i: integer; begin min:=K[1]; for i:=1 to n do if min>K[i] then min:=K[i]; write('Min = ', min); end; {---- Phan tu lon nhat ----} function ptln(K: A): integer; var max, i: integer; begin max:=K[1]; for i:=1 to n do if max<K[i] then max:=K[i]; write('Max = ', max); end; {---- Phan tu chan le ----} function ptcl(K: A): integer; var i, d, t: integer; begin d:=0; t:=0; for i:=1 to n do begin if K[i] mod 2 = 0 then d:=d+1; if K[i] mod 2 <> 0 then t:=t+1; end; writeln('So phan tu chan: ', d); write('So phan tu le: ', t); end; {---- Tong cac phan tu chan le ----} function tptcl(K: A): integer; var i, s, p: integer; begin s:=0; p:=0; for i:=1 to n do begin if K[i] mod 2 = 0 then s:=s+K[i]; if K[i] mod 2 <> 0 then p:=p+K[i]; end; writeln('Tong so phan tu chan: ', s); write('Tong so phan tu le: ', p); end; begin clrscr; write('Nhap n = '); readln(n); for i:=1 to n do begin write('A[', i, '] = '); readln(B[i]); end; ptnn(B); writeln; ptln(B); writeln; ptcl(B); writeln; tptcl(B); readln end.

Tin học

Giúp mình giải 2 bài này với ạ

14/07/2021

By Natalia

Giúp mình giải 2 bài này với ạ
Câu 1: Viết chương trình
– Đọc từ tệp ”DULIEU.INP” 2 số nguyên M và N (M { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Giúp mình giải 2 bài này với ạ", "text": "Giúp mình giải 2 bài này với ạ Câu 1: Viết chương trình - Đọc từ tệp ''DULIEU.INP'' 2 số nguyên M và N (MTrả lời

Giúp mình giải 2 bài này với ạ

Viết một bình luận Hủy