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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
CD
1
10 tháng 5 2021
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if (4<a[i]) and (a[i]<15) then t:=t+a[i];
writeln(t);
readln;
end.
NH
3
KV
6 tháng 5 2023
Var a:array:[1..100] of integer;
i,max:integer;
Begin
For i:=1 to 100 do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
max:=a[1];
For i:=2 to n do
If a[i] > max then max:=a[i];
write('So lon nhat la ',max);
Readln
End.
H9
HT.Phong (9A5)
CTVHS
6 tháng 5 2023
Uses crt;
var i,n,max; longint;
a: array[1..100] of longint;
begin clrscr;
readln(n);
for i:=1 to n do read(n); readln;
max:=a[1];
for i:=1 to n do if(max<a[i]) then max:=a[i];
write('So nguyen lon nhat la: ',max);
readln;
end.
30 tháng 4 2022
#include <bits/stdc++.h>
using namespace std;
long long a[10],i,t;
int main()
{
t=0;
for (i=1; i<=10; i++)
cin>>a[i];
for (i=1; i<=10; i++) if (a[i]%2!=0) t+=a[i];
cout<<t;
return 0;
}
11 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x>0) t=t+x;
}
cout<<t;
return 0;
}
10 tháng 5 2022
Câu 8: B
Câu 9: A
Câu 10: A
Câu 11: B
Câu 12: C
Câu 13: B
Câu 14: D
Câu 15: A
1 tháng 2 2023
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if (n mod i=0) and (i%2=1) then write(i:4);
readln;
end.
TQ
30 tháng 3 2021
bạn ơi câu a của bạn ý j ạ mk giải dc hết hỏi xíu thui
ý của câu a đầu là j ??
8 tháng 8 2023
program TICHSO;
var
n, i, j, maxVal, a_i, a_j: Integer;
begin
maxVal := 0;
Readln(n);
for i := 1 to n do
begin
Read(a_i);
if Abs(a_i) > maxVal then
maxVal := Abs(a_i);
end;
for i := 1 to n-1 do
begin
for j := i+1 to n do
begin
a_i := Abs(a[i]);
a_j := Abs(a[j]);
if (a_i * a_j) > maxVal then
maxVal := a_i * a_j;
end;
end;
Writeln(maxVal);
end.