Помогите дописать программы Паскаль

  • Как срочно нужно? !
    отметить нарушение!
    snowzilla
  • до завтра !
    отметить нарушение!
    aleksandra-kozyreva
  • Поясните еще плиз, что должна в итоге делать программа !
    отметить нарушение!
    snowzilla
  • ну дан отрывок программы и его надо дописать и в конце первая программа должна найти первый элемент имеющая соответствие с значением !
    отметить нарушение!
    aleksandra-kozyreva
  • во второй задачи над кусочком условие написано и над третий также !
    отметить нарушение!
    aleksandra-kozyreva
  • ок !
    отметить нарушение!
    snowzilla
  • надеюсь вы про меня не забудете спасибо если сделаете эти задачи !
    отметить нарушение!
    aleksandra-kozyreva
  • Помним. Скоро выложим решение !
    отметить нарушение!
    snowzilla

Ответы и объяснения

program count_cond_1;
var
k, i: integer;
a: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(100);
k:=0;
for i:=1 to 10 do
if a[i]>50 then k:=k+1;
write('k=', k);
end.


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


program count_cond_3;
var
i, x: integer;
a: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(100);
write('Введите x:');
readln(x);
i:=0;
repeat
i:=i+1;
until (a[i]=x) or (i=10);
if a[i]=x then write(i) else write('Нет');
end.
  • Большое спасибо !
    отметить нарушение!
    aleksandra-kozyreva

Новые вопросы по теме

Задай вопрос
+