Bai 9: lam viec voi day so

Bai 9. Lam việc với dãy số

... cua day so, N = '); readln(n); writeln('Nhap cac phan tu cua day so: '); For i:=1 to n do - 4 - số cụ thể (ở đây là 100, mặc dù số các số nhập vào sau này có thể nhỏ hơn nhiều so ... nhập Diem_i; Với i = 1 đến 50: hãy so sánh Max với Diem_i; màn hình điểm số cao nhất. Vì mỗi biến chỉ có thể lu một giá trị duy nhất, để có thể nhập điểm và so sánh chúng, ta cần sử dụn...

Ngày tải lên: 14/06/2013, 01:25

5 4,6K 25

Bài 9-Làm việc với dãy số

Ngày tải lên: 16/09/2013, 04:10

21 2,9K 13

Bai 9: lam viec voi day so

... 100 và in ra số lớn nhất trong các số vừa nhập, em có nhận xét gì so với bài tập trên? (khai báo 100 biến, 100 lệnh nhập dữ liệu, so sánh giá trị với 99 số còn lại … chương trình sẻ rất dài, dễ ... nào? Nhập mảng in mảng 2. Củng cố 3. Dặn dò 10 A n 1. Nhập số phần tử của mảng. Write(‘ Nhap vao so HS:’); Readln(n); 2. Nhập vào giá trị từng phần tử của mảng (A[i]). For i:=1 to n do Begin...

Ngày tải lên: 29/09/2013, 18:10

15 1,5K 10

bài 9: Làm Việc Với dãy số

... array[1..100] of integer; Begin clrscr; write('Hay nhap do dai cua day so, = '); readln(n); writeln('Nhap cac phan tu cua day so: '); For i:=1 to n do Begin write('a[',i,']='); ... Max<a[i] then Max:=a[i]; if Min>a[i] then Min:=a[i] end; write(&apos ;So lon nhat la Max = ',Max); write(&apos ;So nho nhat la Min = ',Min); Readln En...

Ngày tải lên: 26/10/2013, 15:11

18 1,6K 6

làm việc với dãy số

... tương tự dưới đây:} Begin Clrscr; Write ( ‘ Hay nhap do dai cua day so, N = ‘); readln (n); Writeln ( Nhap cac phan tu cua day so: m’); For i:= 1 to n do Begin Write ( ‘ a[ , i , ] = ‘); readln ... i ] then Max:= a[ i ]; if Min < a[ i ] then Min:= a[ i ]; End; Write ( ‘ So lon nhat la Max = ‘ Max); Write ( ‘ So nho nhat la Min = ‘ Min); readln (n); End. ** GHI NHỚ: (SGK)/ Tr 79....

Ngày tải lên: 01/07/2013, 01:25

4 1,1K 16

Làm việc với dãy số

... A : Array [1..100] of Integer; BEGIN Write(‘ Hay nhap do dai cua day so, N= ‘);Readln(n); Writeln(‘Hay nhap cac phan tu cua day so ‘); For i:=1 to n do Begin Write(‘a[ ‘,i,’] =‘);readln(a[i]); ... max < a[i] then Max:=a[i]; If Min >a[i] then Min:=a[i]; End; Writeln ( So lon nhat la Max =‘,max); Writeln( So nho nhat la Min =‘,min); Readln; END. Phần khai báo {Phần thân chương tr...

Ngày tải lên: 06/08/2013, 01:26

17 626 3