Câu 1: Viết chương trình tổng của 100 số lẻ đầu tiên
Câu 2: Hãy viết các câu lệnh, kahi báo theo yêu cầu sau:
a) Khai báo mảng A gồm 5 phần tử thuộc kiểu dữ liệu số thực
c) Khai bào mảng dãy số gồm 50 phần tử theo dữ liệu số nguyên
d) Nhập giá trị cho phần tử thứ 2 trong mảng điền
(mink đag cần...
Đọc tiếp
Câu 1: Viết chương trình tổng của 100 số lẻ đầu tiên
Câu 2: Hãy viết các câu lệnh, kahi báo theo yêu cầu sau:
a) Khai báo mảng A gồm 5 phần tử thuộc kiểu dữ liệu số thực
c) Khai bào mảng dãy số gồm 50 phần tử theo dữ liệu số nguyên
d) Nhập giá trị cho phần tử thứ 2 trong mảng điền
(mink đag cần gấp)
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,t,dem:integer;
begin
clrscr;
t:=0;
for i:=1 to 200 do
if i mod 2=1 then t:=t+i;
writeln('Tong cua 100 so le dau tien la: ',t);
readln;
end.
Câu 2:
a) var a:array[1..5]of real;
b) var a:array[1..50]of integer;
c) readln(a[2]);