đề là biểu diễn thuật toán bằng sơ đồ khối: tính tổng các số chẵn và tổng các số lẻ trong dãy gồm n số nguyên được nhập vào từ phím
Giúp em với ạ

Question

maingocquynhnhu · Answer

program min_vitri;

uses crt;

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

n,min,i:integer;

begin

clrscr;

write(‘Nhap so luong phan tu n: ‘); readln(n);

writeln(‘NHAP GIA TRI TUNG PHAN TU CUA DAY’);

for i:=1 to n do

begin

write(‘Nhap phan tu thu ‘,i’: ‘);

readln(A[i]);

end;

min:=A[1];

for i:=2 to n do

if A[i]<min then min:=A[i];

writeln(‘Phan tu nho nhat la ‘,min);

writeln(‘Vi tri xua hien la:’);

for i:=1 to n do

if A[i]=min then write(i:4);

readln

end.

0 bình luận về “đề là biểu diễn thuật toán bằng sơ đồ khối: tính tổng các số chẵn và tổng các số lẻ trong dãy gồm n số nguyên được nhập vào từ phím Giúp em với ạ”