Pascal abc.
Проверка
введите число: 5446
последняя цифра: 6<span>
</span>
Uses crt;
var x,m: array [1..40] of integer;
n,k,c:integer;
begin
readln(n);
c:=1;
for k:=1 to n do
begin
write('x[',k,']:');
readln(x[k]);
end;
k:=1;
repeat
if x[k]>0 then
begin
m[c]:=x[k];
inc(c);
inc(k);
end
else inc(k);
until c=6;
writeln;
for c:=1 to 5 do
writeln('m[',c,']:',m[c]);
<span>end.</span>
Для целых чисел задаётся переменная integer.
Для вещественных(то есть дробных) чисел задаётся переменная real.
Таким образом мы получаем:
1) L1: integer;
2) srd: real;
Sub Z1()
MsgBox ("Моя первая программа на VBScript!!!")
<span>End Sub
В каком приложении работаешь?</span>