Nội dung bài viết

    Xem thêm

    Viết chương trình pascal nhập vào 30 phần tử số thực và in ra 1 cột

    Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

    1 276 03/08/2023
    Trang trước
    Chia sẻ
    Trang sau  

    Viết chương trình pascal nhập vào 30 phần tử số thực và in ra 1 cột

    Đề bài: Viết chương trình pascal nhập vào 30 phần tử số thực và in ra 1 cột số lớn hơn hoặc bằng 5 và tính tổng dãy số đó

    Lời giải:

    uses crt;

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

    i:integer;

    t:real;

    begin

    clrscr;

    for i:=1 to 30 do

    begin

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

    end;

    writeln('Cac so lon hon 5 trong day la: ');

    t:=0;

    for i:=1 to 30 do

    if a[i]>5 then

    begin

    write(a[i]:4:2,' ');

    t:=t+a[i];

    end;

    writeln;

    writeln('Tong cac so lon hon 5 trong day la: ',t:4:2);

    readln;

    end.

    Xem thêm các câu hỏi Tin học có đáp án khác:

    So sánh sự giống và khác nhau giữa rom va ram

    Firmware đề cập đến điều gì?

    Tiền đề quyết định cho sự phát triển nền kinh tế tri thức là?

    Kết quả in ra màn hình của câu lệnh Writeln(‘5+20 = ‘, 20+5); là

    Khi tạo ra 1 biểu mẫu để nhập dữ liệu thì ta bắt buộc phải

    Hãy chọn biểu diễn tên đúng trong những biểu diễn sau

    Biểu diễn nào dưới đây không phải là biểu diễn hằng trong Pascal:

    Trong thiết bị sau, thiết bị nào có tốc độ truy xuất chậm nhất

    Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n

    Viết chương trình in ra số lớn nhất trong bốn số nhập từ bàn phím

    Viết chương trình xét một tam giác có là tam giác vuông hay không

    Viết chương trình Python cho phép nhập vào 3 số nguyên a,b, c

    Viết chương trình in ra thông báo một số nguyên nhập vào từ bàn phím

    Cho đoạn chương trình sau: x:=8,y:=10; If x>y then

    Để chạy chương trình ta dùng tổ hợp phím:

    Cho đoạn chương trình sau

    Viết chương trình dịch các ngày trong tuần ra tiếng anh

    Bài viết cùng lớp mới nhất

    Xem thêm
    1 276 03/08/2023
    Trang trước
    Chia sẻ
    Trang sau  

    Xem thêm các chương trình khác: