Запишите полные тексты двух программ и выполните их ** компьютере первая программа: K:=0;...

Question

Запишите полные тексты двух программ и выполните их на компьютере

первая программа:
K:=0;
For i:=1 to 10 do
If a [i]> 50 then k:=k+1;
Write (‘k=’, k)
вторая программа

s:=0;
for i:=1 to 10 do
if (a [i]>50) and (a [i]<60) then s:=s+a [i];<br> write ('s=', s)

запишите полные тексты двух программ и выполните их на компьютере

Answer 1

Первая программа:
program n1;
var a: array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do a[i]:=random(100);
K:=0;
For i:=1 to 10 doIf a [i]> 50 then k:=k+1;
Write ('k=', k);
end.

Вторая программа:

program n1;
var a: array[1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do a[i]:=random(100);
s:=0;
for i:=1 to 10 doif (a [i]>50) and (a [i]<60) then s:=s+a [i];<br>write ('s=', s);
end.

Comments

как тебе баллы дать? xD

---

Вот так нормально , а то все слитно было XD