Viết câu lệnh Pascal nhập dữ liệu cho `1` mảng gồm `n` phần tử
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.
Những câu hỏi liên quan
7 tháng 5 2021
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);
7 tháng 5 2021
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.
30 tháng 4 2022
#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;
}
22 tháng 1 2022
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i;
//chuongtrinhcon
bool ktnt(long long x)
{
if (x<=1) return(false);
for (int i=2; i*i<=x; i++)
if (x%i==0) return(false);
return(true);
}
//chuongtrinhchinh
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) if (ktnt(a[i])==true) cout<<a[i]<<" ";
return 0;
}
17 tháng 6 2020
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]);
Uses crt;
var n,i: integer;
a: array[1..100] of longint;
begin clrscr;
readln(n);
for i:=1 to n do read(a[i]); readln;
writeln(a[i]:3);
readln;
end.