K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

2 tháng 5 2023

Var a:array[1..35] of real;

i:integer;

Begin

For i:=1 to 35 do

Begin

Write('Nhap diem thu ',i);readln(a[i]);

End;

write('Diem vua nhap la ');

For i:=1 to 35 do write(a[i]:10:2);

Writeln;

write('Cac diem duoi 5 hoac >  la ');

For i:=1 to 35 do

If (a[i]>9) or (a[i]<5) then write(a[i]:10:2)

Readln

End.

10 tháng 5 2023

Var a:array:[1..50] of real;

i,max:integer;

Begin

For i:=1 to 50 do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Write('Cac diem vua nhap la: ');

For i:=1 to 50 do 

Write(a[i]:10:2);

Writeln;

max:=a[1];

For i:=2 to 50 do

if a[i]>max then max:=a[i];

Write('Diem trung binh lon nhat la ',max:10:2);

Readln

End.

10 tháng 5 2023

Var a:array:[1..50] of real;

i:integer;

max:real;

Begin

For i:=1 to 50 do

Begin

Write('Nhap diem thu ',i,' = ');readln(a[i]);

End;

Write('Cac diem vua nhap la: ');

For i:=1 to 50 do 

Write(a[i]:10:2);

writeln;

max:=a[1];

For i:=2 to 50 do

if a[i] > max then max:=a[i];

write('Diem lon nhat la ',max:10:2);

Readln

End.

25 tháng 4 2023

program DiemKiemTra;
var
  i, max: integer;
  diem: array[1..30] of integer; 

begin
  for i := 1 to 30 do
  begin
    writeln('Nhap diem cua hs thu ', i, ': ');
    readln(diem[i]);
  end;
  max := diem[1];
  for i := 2 to 30 do
  begin
    if diem[i] > max then
      max := diem[i];
  end;
  writeln('Diem cao nhat la: ', max);
end.

uses crt;

var a:array[1..100]of real;

i,n:integer;

ln:real;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do writeln(a[i]);

ln:=a[1];

for i:=1 to n do if ln<a[i] then ln:=a[i];

writeln(ln);

readln;

end.

26 tháng 4 2023

 

program sodiemcaonhat; var i,max,n:integer; a:array [1..10000] of integer; begin write('nhap so phan muon nhap='); read(n); for i:=1 to n do begin write('diem thu',i,'='); read(a[i]); end; max:=a[1]; for i:=1 to n do begin if max < a[i] then max:=a[i]; end; write('so diem cao nhat la=',max); readln end.

 

26 tháng 4 2023

program sodiemcaonhat;
var i,max,n:integer;
a:array [1..10000] of integer;
begin
write('nhap so phan muon nhap='); read(n);
for i:=1 to n do begin
write('diem thu',i,'='); read(a[i]);
end;
max:=a[1];
for i:=1 to n do begin
if max < a[i] then max:=a[i];
end;
write('so diem cao nhat la=',max);
readln
end.

uses crt;

var st:array[1..10]of string;

a:array[1..10]of integer;

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

 readln(st[i],a[i]);

for i:=1 to n do 

  writeln(st[i],' ',a[i]);

readln;

end.

5 tháng 5 2023

Đây là code Pascal để nhập và in điểm kiểm tra học kì môn tin cho N của từng học sinh:

program DiemKT;

var
N, i: integer;
diem: array1..100 of integer;

begin
write('Nhap so hoc sinh: ');
readln(N);

for i := 1 to N do
begin
write('Nhap diem kiem tra hoc ki cua hoc sinh thu ', i, ': ');
readln(diemi);
end;

writeln('Diem kiem tra hoc ki cua ', N, ' hoc sinh la:');

for i := 1 to N do
writeln('Hoc sinh thu ', i, ': ', diemi);

end.

5 tháng 4 2023

Đây là chương trình mình viết bằng ngôn ngữ C++, mình sử dụng biến mảng a đánh số từ 0 tới 45. Khi in ra màn hình thì số điểm của mỗi học sinh sẽ viết trên mỗi dòng.
CODE:

#include <iostream>

using namespace std;
int a[45];
int main()
{
    for(int i=0;i<45;i++){
        cin>>a[i];
    }
    for(int i:a){cout<<i<<endl;}
    return 0;