Câu 1 : hãy viết các câu lệnh trong pascal thực hiện các yêu cầu sau
a) Khai báo mảng A gồm 50 phần tử thuộc kiểu dữ liệu số thực
b) Phần tử thứ năm của mảng A được gắn giá trị là 8
c) Viết câu lệnh lặp nhập giá trị cho 50 phần tử trong mảng A và in ra màn hình giá trị của 50 phần tử đã nhập
Câu 2: Viết chương trình tính tổng 10 số tự nhiên đầu tiên
Câu 3: Cho mảng A chứa các giá trị sau
A | 17 | 13 | 20 | 10 | 15 |
I | 3 | 7 | 5 | 6 | 7 |
a) Xác định các giá trị của A[2];A[4];A[7];A[9] là bao nhiêu
b) Cho các câu lệnh sau:
A[2]:= A[3] + A[5];
A[9]:= A[6] + A[7];
Dựa vào bảng trên hãy tính giá trị các phần tử A[2], A[9]
Giúp em với ạ chiều nay thi rồi huhu
Câu 1:
a) var a:array[1..50]of real;
b) a[5]:=8;
c) for i:=1 to 50 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 50 do
write(a[i]:4);
Câu 2:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln(s);
readln;
end.
Viết đoạn lệnh nhập giá trị các phần tử của mảng và in các phần tử của mảng
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
Cho mảng sau :
Var Diem : array [ 1..40] of real ;
a, Viết câu lệnh nhập giá trị cho các phần tử.
b, Viết câu lệnh in giá trị cho các phần tử .
Giúp mk vs chiều nay mk thi cuối kì 2 rồi :((
a: for i:=1 to 40 do readln(diem[i]);
b: for i:=1 to 40 do write(diem[i]:4);
Trình bày cú pháp khai báo biến mảng trong hệ xuân ANATOMY. Áp dụng:Viết câu lệnh khai báo biến mảng lưu điểm TB môn tin của 45 học sinh lớp 9A và viết câu lệnh nhập giá trị cho các phần tử tỏng mảng vừa khai báo GIÚP MIK VS MN MAI MIK THI RỒI
Khi báo mảng Học sinh gồm 50 phần tử, các phần tử thuộc kiểu số nguyên <Viết câu lệnh nhập dữ liệu cho các phần tử của mảng Học sinh>
Help mik zới=))
#include <bits/stdc++.h>
using namespace std;
long long i,n,a[50];
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
return 0;
}
Viết đoạn lệnh nhập mảng a gồm n các số nguyên xuất ra màn hình các giá trị lớn hơn trung bình cộng các phần tử mảng
var a:array[1..1000] of integer;
n,i: integer;
tb: real;
begin
write('Nhap N = '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
tb:=0;
for i:=1 to n do
tb:=tb+a[i];
tb:=tb/n;
for i:=1 to n do
if a[i] > tb then writeln(a[i]);
readln
end.
for i:=1 to n do write(a[i]:4);
Bài1. Viết 1 chương trình tạo 1 mảng số nguyên a gồm có N phần tử với N phần tử được nhập từ bàn phím
a. Nhập vào các giá trị cho các phần tử của mảng
b. Xuất các phần tử mang giá trị âm của mảng
c. Tính tích các phần tử mang giá trị chẵn của mảng