uses crt;
var i,j,m:integer;
t:longint;
a:array[1..100,1..100]of integer;
begin
  clrscr;
  write('nhap m:');readln(m);
  for i:=1 to m do
  for j:=1 to m do
  begin
    write('a[',i,',',j,']=');readln(a[i,j]);
  end;
  clrscr;
  writeln('ma tran da nhap la:');
  for i:=1 to m do
  begin
    for j:=1 to m do
    write(a[i,j]:5);writeln;
  end;
  i:=1;j:=1;
  while i<=m do
  begin
    t:=t+a[i,j];
    inc(i);inc(j);
  end;
  writeln('tong cac phan tu nam tren duong cheo chinh la: ',t);
  readln;
end.

#include <bits/stdc++.h>

using namespace std;

double a,cv,dt;

int main()

{

cin>>a;

cv=a*4;

dt=a*a;

cout<<fixed<<setprecision(2)<<cv<<endl;

cout<<fixed<<setprecision(2)<<dt;

return 0;

}

Program HOC24;

var i,n: integer;

t: longint;

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

begin

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

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do t:=t+a[i];

write('Tong la; ',t);

readln

end.

Bước 1. Nhập N (bạn nhập N = 50)

Bước 2.  , 

Bước 3. 

Bước 4. 4.1 Nếu  thì kết thúc thuật toán và thông báo kết quả.

4.2  rồi quay lại bước 3

bài mảng đúng không

program TinhTong;
uses crt;
var
  N, i, j, tich: integer;
  S: real;
begin
  clrscr;
  write('Nhap so nguyen N: ');
  readln(N);
  
  S := 0;
  tich := 1;
  
  for i := 1 to N do
  begin
    tich := tich * i;
    S := S + tich;
  end;
  
  writeln('Tong S = ', S:0:2);
  readln;
end.

uses crt;

var x,n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do 

begin

readln(x);

if x mod 2=0 then t:=t+x;

end;

writeln(t);

readln;

end.

program ideone;
var i,n,x,res:longint;
begin
readln(n);
res:=0;
for i:=1 to n do 
begin
read(x);
if x mod 2 = 0 then
res:=res+x;
end;
write(res);

end.

Trung thực là lối sống thật thà, ngay thẳng; không gian dối, lừa gạt làm hại người khác để mưu lợi cho mình. Người có tính trung thực không nhận những món lợi (vật chất, tinh thần) không phải do mình làm nên. Người trung thực luôn can đảm nhận lỗi hoặc những hạn chế yếu kém của mình; dám phản ánh những vấn nạn của xã hội… Trung thực rõ ràng là đức tính cần thiết và quan trọng nhất đối với mỗi con người. Sống trung thực thì lòng sẽ được thanh thản, lương tâm trong sạch, hưởng được hạnh phúc cuộc sống; được nhiều người tin tưởng, kính trọng. Sống trung thực giúp ta tin yêu con người, làm cho xã hội văn minh tiến bộ. Trung thực là đức tính đáng quý ở con người cần được trân trọng, biểu dương. Để đề cao tính trung thực trong đời sống, chúng ta cần quyết liệt phê phán những ai sống lừa gạt, kiếm tiền bằng cách nói dối lừa đảo. Tuy nhiên, có những trường hợp đặc biệt, lòng trung thực nhường chỗ để thực hiện một điều cao cả hơn: đó là tình thương yêu. Ví dụ: bệnh nhân mắc bệnh hiểm nghèo mà bác sĩ vẫn nói tình hình sức khỏe tiến triển tốt để đem lại sự thanh thản cho bệnh nhân trong những giờ cuối cuộc đời…Không di sản nào quý giá bằng lòng trung thực. Thiếu trung thực, các giá trị đạo đức khác cũng không thể hình thành được ở con người. Bởi vậy, mỗi người cần rèn luyện cho mình đức tính trung thực để có thể thành công và sống một cuộc đời hạnh phúc.  

Con người có rất nhiều đức tính tốt , một trong số đó là lòng khiêm tốn . Kiêm tốn là có ý thức và thái độ đúng mực trong việc đánh giá bản thân , không kiêu căng , tự phụ . Người có tính khiêm tốn là ngươi luôn phải cố gắng nhiều hơn trong mọi việc . Lòng khiêm tốn có vai trò và ý nghĩa vô cùng quan trọng trong cuộc sống của con người . Noa là phẩm chất đạo đức cần có ở mỗi chúng ta . Giups ta năng cao phẩm giá , cung như được mọi người xung quanh tôn trngjvaf quý mến . Như Bác Hồ sông một cuộc sống rất khiêm tốn với ngôi nhà sàn gỗ mọc mạc , đơn sơ nhưng Bắc vẫn là một vị lãnh tụ kiệt xuất . Vậy mà hiện nay vẫn còn con người có tính tự cao tự đại .  Đó là những người cần đắng phê phán và loại bỏ . Tóm lại , kiêm tốn là một đức tính tốt của con người , vì vậy mỗi chúng ta cần phải rèn luyện vì một cộc sống tốt đẹp hơn 

Program HOC24;

var i: byte;

t: integer;

begin

t:=0;

for i:=25 to 50 do if (i mod 5=0) and (i mod 2=1) then t:=t+i;

write('Tong la: ',t);

readln

end.

#include <bits/stdc++.h>
using namespace std;
int n,x,i,cnt,res;
int main() {
ios_base::sync_with_stdio(false);
cin.tie(NULL);
cout.tie(NULL);
cin>>n>>cnt;
for(i=0;i<n;i++)
{
    cin>>x;
    if(x%cnt==0) res++;
}
cout<<"so luong phan tu chia het cho "<<cnt<<" la: "<<res;
return 0;
}

#include <bits/stdc++.h>
using namespace std;
const int gh=1000;
int n,x,i,cnt,res,dem[gh];
int main() {
ios_base::sync_with_stdio(false);
cin.tie(NULL);
cout.tie(NULL);
cin>>n>>cnt;
for(i=0;i<n;i++)
{
    cin>>x;
    if(x%cnt==0) { res++; dem[res]=x;}
}
cout<<"so luong phan tu chia het cho "<<cnt<<" la: "<<res;
cout<<"\n"<<"cac phan tu do la: "<<"\n";
for(i=1;i<=res;i++)
    cout<<dem[i]<<" ";
return 0;
}

// đây mới đúng mik đọc lỗi đề nha bạn!!