Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Расписать полностью решение задачи ↓ на АВС Паскаль !!!!

Ответ оставил Гость

{все строки с фигурными скобками можно удалить, это комментарии, которые на программу не влияют}
var
a: array[1..10]of real;
i,k:integer;t:real;     
       begin            
  writeln(Введите t);
{На экране появится текст "Введите t"}       
 readln(t); 
{В этот момент появится курсор и можно будет ввести значение t}           
 writeln(Введите массив);           
        for i:=1 to 10 do               
             begin               
                   readln(a[i]);   {вводим элементы массива с клавиатуры}               
                       if a[i]                            k:=k+1;   {то считаем количество таких элементов}          
             end;           
 writeln;           
writeln(количество: ,k);       
end.