Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5. программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается число 0(0-признак окончания ввода, не входит в последовательность , , на паскале

Вроде так.
var i,n,k: integer;
s: longint;
begin
s :=0; k :=0;
repeat
readln ( i );
s:=s+i;
if ( i <> 0) and ( i mod 2=0) and ( i mod 5=0) then k:=k+1;
until i=0;
writeln ('s= ',s, ' ', 'k= ',k);
end.

Объяснение:

Будем рассматривать на примере Acrobat Reader1. Автономный адрес файла на ПК C: \Program Files\Adobe\Reader 9,0\Reader\Acrobat Reader.exe2. Сетевой URL — адрес файла http://aihdownload.adobe.com/bin/live/install_reader11_en_chra_aih.exe

Сходство: Имеют хранилище (сайт/диск) и путь к странице, папке или файлу Различие: адреса url состоит с трех частей а автономный с двух

1. http: // — протокол передачи aihdownload.adobe.com — имя web-сервера/bin/live/install_reader11_en_chra_aih.exe путь от корня web-сервера к страничке (файлу).

2. C: \ — диск\Program Files\Adobe\Reader 9,0\Reader\Acrobat Reader.exe путь от диска к папке (файлу). Имеют разные Слеш палочки (/,\)

//Pascal
//Массивы размеров 10 элементов заполняются случайными числами от -10 до 10

//1
var
  A: array[1..10] of real;
  i: byte;
begin
randomize;
writeln('Исходный массив.');
for i := 1 to 10 do
begin
  A[i] := random(21)-10;
  write(A[i]:5);
end;
writeln;
writeln('Измененный массив.');
for i := 1 to 10 do
begin
  if A[i] > 0 then A[i] := A[i] / 2
  else A[i] := i;
  write(A[i]:5);
end;
writeln;
end.

//2
var
  A: array[1..10] of integer;
  i: byte;
  mult: longint;
begin
mult := 1;
randomize;
writeln('Исходный массив.');
for i := 1 to 10 do
begin
  A[i] := random(21)-10;
  mult := mult * A[i];
  write(A[i]:5);
end;
writeln;
writeln('Произведение элементов массива = ', mult);
end.