Chuột Chũi's Profile

Để tay phía trên lò sưởi thù nóng hơn để tay bên cạnh lò sưởi hãy giải thích

vì khi lửa cháy, nó sẽ đốt nóng không khí xung quanh, không khí nóng sẽ bay lên trên làm cho phần trên của lò sưởi nóng hơn phần cạnh.

Program max_real;

Uses crt;

Var n,i:integer;

      day:array[1..100] of real;

      max:real;

Begin

 Clrscr;

 Write('Nhap so phan tu cua day: '); Read(n);

 For i:=1 to n do

  Begin

   Write('Nhap phan tu thu ',i,': '); Read(day[i]);

  End;

 max:=day[1];

 For i:=2 to n do

  If max<day[i] then max:=day[i];

 Write('Gia tri lon nhat cua day so la: ',n);

 Readln;

End.

Viết chương trình nhập dãy n số thực . In ra màn hình giá trị lớn nhất của dãy số đó

số lần lặp câu lệnh for to do là bao nhiêu lần 

là kết quả của giá trị cuối - giá trị đầu + 1 nhe

bài 1:

Program tong_day;

Uses crt;

Var n,i:integer;

      day:array[1..100] of integer;

      s:longint;

Begin

 Clrscr;

 Write('Nhap so phan tu cua day: ');read(n);

 For i:=1 to n do

  Begin

   Write('Nhap phan tu thu ',i,': ');Read(day[i]);

   s:=s+day[i];

  End;

 Write('Tong cac so vua nhap cua day la: ',s);

 Readln;

End.

 

bài 2:

Program tong_chan_day;

Uses crt;

Var n,i:integer;

      day:array[1..100] of integer;

      s:longint;

Begin

 Clrscr;

 Write('Nhap so phan tu cua day: ');read(n);

 For i:=1 to n do

  Begin

   Write('Nhap phan tu thu ',i,': ');Read(day[i]);

   If (day[i] mod 2 = 0) then s:=s+day[i];

  End;

 Write('tong cac so chan cua day la: ',s);

 Readln;

End.

 

bài 3:

Program in_le_day;

Uses crt;

Var n,i:integer;

      day:array[1..100] of integer;

Begin

 Clrscr;

 Write('Nhap so phan tu cua day: ');read(n);

 For i:=1 to n do

  Begin

   Write('Nhap phan tu thu ',i,': ');Read(day[i]);

  End;

 Write('Cac so le trong day la: ');

 For i:=1 to n do If (day[i] mod 2 = 1) then Write(day[i],' ');

 Readln;

End.

 

bài 4:

Program in_am_day;

Uses crt;

Var n,i:integer;

      day:array[1..100] of integer;

Begin

 Clrscr;

 Write('Nhap so phan tu cua day: ');read(n);

 For i:=1 to n do

  Begin

   Write('Nhap phan tu thu ',i,': ');Read(day[i]);

  End;

 Write('Cac so am trong day la: ');

 For i:=1 to n do If (day[i] < 0) then Write(day[i],' ');

 Readln;

End.

 

bài 5:

Program in_tang_dan;

Uses crt;

Var n,i,j,tam:integer;

      day:array[1..100] of integer;

      s:longint;

Begin

 Clrscr;

 Write('Nhap so phan tu cua day: ');read(n);

 For i:=1 to n do

  Begin

   Write('Nhap phan tu thu ',i,': ');Read(day[i]);

  End;

 For i:=1 to n-1 do

 For j:=i+1 to n do

  If (day[i]>day[j]) then Begin tam:=day[i]; day[i]:=day[j]; day[j]:=tam; End;

 Write('Day duoc sap xep tang dan la: ');

 For i:=1 to n do write(day[i],' ');

 Readln;

End.

 

 bài 1: viết chương trình nhập vào dãy số in ra màn hình tổng các số vừa nhập của dãy.

bài 2 : viết chương trình nhập vào dãy số in ra màn hình tổng các số chẵn của dãy.

bài 3 : viết chương trình nhập vào dãy số in ra màn hình các số lẻ của dãy.

bài 4: viết chương trình nhập vào dãy số in ra màn hình các số âm của dãy.

bài 5: viết chương trình nhập vào dãy số in ra màn hình dãy được sắp xếp theo thứu tụ tăng dần.

Write(x);