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.


Bài 1:program sothuc;
uses crt;
var a:array[1..10] of real;s,i,j:real;
begin
s:=0;
for i:=1 to 10 do begin writeln('A[',i,']=');readln(a[i]); end;
for i:=1 to 10 do if a[i]<0 then
for j:=1 to 10 do
begin a[j]:=sqr(a[i]); s:=s+a[j]; end;
writeln('tong binh phuong cac so am la: ',s:2:2); readln;
end. (Khi nào mình kiểm tra chạy lại trên phần mềm rồi sửa lại nếu sai nhé)
Bài 2:
program soduong;
uses crt;
var a:array[1..100] of integer;s,i,n:integer;
begin
clrscr;
writeln('nhap do dai cua day');readln(n);
for i:=1 to n do begin
writeln('a[',i,']=');readln(a[i]);
if a[i] mod 2 = 0 then s:=s+a[i] end;
writeln('tong so duong trong day la',s:2:0);readln
end.
Bài 3: các số dương mà là số lẻ là sao thế bạn????

Hành vi vi phạm pháp luật:
Các hành vi 1, 2, 3 vừa vi phạm pháp luật vừa vi phạm đạo đức và thiếu văn hóa
Hành vi 4 vi phạm đạo đức và thiếu văn hóa.

Các câu lệnh điều kiện cho phép chúng ta thay đổi hướng thực hiện của chương trình. Dựa vào một điều kiện, một lệnh hoặc một chuỗi các câu lệnh sẽ thực hiện các hành động lựa chọn. định hướng để nhận một hành động, và nếu điều kiện là sai false, nó được định hướng để thực hiện một hành động khác.

Bạn đăng nhập hay là gửi email. Bạn có thể mô tả cụ thể để mọi người giúp bạn dễ hơn nhé.
hỏi admin
mik ko bt