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.

22 tháng 5 2022

Đề thiếu?

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.

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.

11 tháng 5 2022

tham khảo'

 

uses crt;

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

i,n,t,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then

begin

t:=t+a[i];

inc(dem);

end;

writeln('Tong cac so chan la: ',t);

writeln('So luong so chan la: ',dem);

readln;

end.

11 tháng 5 2022

Var a:array[1..100] of integer;

i,n,dem,vt,s sc,sl,min:integer;

tbc:real;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

For i:=1 to n do

Begin

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

End;

For i:=1 to n do s:=s+a[i];

tbc:=s/n;

Writeln('Gia tri trung binh cua mang la ',tbc:10:2);

Write('Cac phan tu lon hon gia tri trung binh la ');

For i:=1 to n do

If a[i]>tbc then write(a[i],'   ');

For i:=1 to n do

Begin

If a[i] mod 2 = 0 then sc:=sc+a[i]

Else sl:=sl+a[i];

End;

Writeln('Tong cac phan tu chan la ',sc);

Writeln('Tong cac phan tu le la ',sl);

min:=a[1];

For i:=2 to n do

Begin

If a[i] < min then min:=a[i];

vt:=i;

End;

Writeln('Phan tu nho nhat la ',min,' tai vi tri ',vt);

For i:=1 to n do

If a[i] mod 5 = 0 then dem:=dem+1;

Write('So cac phan tu chia het cho 5 la ',dem);

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.

28 tháng 4 2022

uses crt;
var NS:array[1..100] of integer; Dtoan,Dvan,Dtb:array[1..100] of real;
hoten:array[1..100] of string; i:byte;
begin
clrscr;
for i:=1 to 45 do
begin
write('Nhap ten cua hoc sinh thu',i,':'); readln(hoten[i]);
write('Nhap ngay sinh:'); readln(NS[i]);
write('Nhap diem toan:'); readln(Dtoan[i]);
write ('Nhap diem van:'); readln(Dvan[i]);
Dtb[i]:=(Dtoan[i]+Dvan[i])/2;
end;
writeln('Diem trung binh cua cac ban trong lop la:');
for i:=1 to 45 do
writeln(hoten[i],':',Dtb[i]:1:2);
readln;
end.
Tham khảo thui!

28 tháng 4 2022

i:byte nghĩa là sao bạn

 

3 tháng 5 2021

Uses crt;

Var i,n:integer;

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

Begin

clrscr;

Write('Nhap so hoc sinh: ');readln(n);

Writeln('Nhap diem hoc ki mon tin cua ',n,' em hoc sinh:');

For i:=1 to n do

Begin

Write('Hoc sinh thu ',i,' : ');

readln(a[i]);

End;

Writeln('Diem kiem tra cua ',n,' em hoc sinh vua nhap la:');

For i:= 1 to n do writeln('Hoc sinh thu ',i,' : ',a[i]);

readln;

End.