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.

uses crt;

var a:array[1..100,1..100]of integer;

i,n,m,j:integer;

begin

clrscr;

readln(n,m);

for i:=1 to n do 

  for j:=1 to m do 

  readln(a[i,j]);

readln;

end.

6 tháng 10 2021

Bài này khs quá mik ko bt lm ai giải giúp mik vs đi ạ!! Mik đag cần gấp :)))

uses crt;

var a:array[1..100,1..100]of integer;

i,n,m,j:integer;

begin

clrscr;

readln(n,m);

for i:=1 to n do 

  for j:=1 to m do 

  readln(a[i,j]);

readln;

end.

27 tháng 4 2021

b.

Sinh vật sản xuất: cỏ

Sinh vật tiêu thụ: thỏ, dê, sâu, chim ăn sâu, hổ, mèo rừng

Sinh vật phân giải: vi sinh vật

uses crt;

var a:array[1..100]of integer;

i,n,max,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

  begin

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

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('So lon nhat la: ',max);

writeln('So nho nhat la: ',min);

readln;

end.

1 tháng 5 2021

E cảm ơn

14 tháng 3 2023

Var a:array[1..100] of integer;

i,s:integer;

Begin

For i:=1 to 100 do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

If a[i] mod 2 <> 0 then s:=s+a[i];

End;

Write('Tong la ',s);

Readln;

End.

15 tháng 3 2023

em cảm ơn ạ <3

#include <bits/stdc++.h>

using namespace std;

double a[1000];

int i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=n; i>=1; i--)

if (a[i]>0)

{

cout<<i<<" ";

return 0;

}

cout<<"Khong co so am trong day";

return 0;

}

15 tháng 1 2022

 

28 tháng 4 2022

bạn tham khảo 

uses crt;

var a:array[1..200]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 a[i] mod 2=0 then t:=t+a[i];

writeln(t);

readln;

end.

28 tháng 4 2022

Mk cảm ơn bạn 

9 tháng 4 2023

Program HOC24;

var i,n: integer;

c: array[1..1000] of integer;

f: text;

begin

assign(f,'MANG3.TXT');

reset(f);

readln(f,n);

for i:=1 to n do read(f,c[i]);

close(f);

for i:=1 to n do if c[i] mod 2=1 then write(c[i],' ');

readln

end.

cứu e với mn