Другие языки | Тут кто нибудь знает???
etozhemaks 
Maratos668,
Program mas;
uses crt;
const n=7;
Var i,nomer,chislo:integer;
a:array[1..n] of integer;
Begin
nomer:=0;
chislo:=0;
For i:=1 to n do
begin
Write('Элемент массива №',i,' = ');
Readln(a[i]);
end;
For i:=1 to n do
if (a[i] mod 10 = 7) and (a[i]>0) and ((a[i]<chislo) or (chislo=0)) then
Begin
Nomer:=i;
Chislo:=a[i];
End;
Clrscr;
Writeln('Элемент массива №',nomer,', равный ',chislo, '');
End.
Igro_Man Program mas;
uses crt;
const n=7;
Var i,nomer,chislo:integer;
a:array[1..n] of integer;
Begin
nomer:=0;
chislo:=0;
For i:=1 to n do
begin
Write('Элемент массива №',i,' = ');
Readln(a[i]);
end;
For i:=1 to n do
if (a[i] mod 10 = 7) and (a[i]>0) and ((a[i]<chislo) or (chislo=0)) then
Begin
Nomer:=i;
Chislo:=a[i];
End;
Clrscr;
Writeln('Элемент массива №',nomer,', равный ',chislo, '');
End.
Igro_Man (02.07.2014 в 19:22)
Maratos668,
Program mas;
uses crt;
const n=7;
Var i,nomer,chislo:integer;
a:array[1..n] of integer;
Begin
nomer:=0;
chislo:=0;
For i:=1 to n do
begin
Write('Элемент массива №',i,' = ');
Readln(a[i]);
end;
For i:=1 to n do
if (a[i] mod 10 = 7) and (a[i]>0) and ((a[i]<chislo) or (chislo=0)) then
Begin
Nomer:=i;
Chislo:=a[i];
End;
Clrscr;
Writeln('Элемент массива №',nomer,', равный ',chislo, '');
End.
Maratos668,
Program mas;
uses crt;
const n=7;
Var i,nomer,chislo:integer;
a:array[1..n] of integer;
Begin
nomer:=0;
chislo:=0;
For i:=1 to n do
begin
Write('Элемент массива №',i,' = ');
Readln(a[i]);
end;
For i:=1 to n do
if (a[i] mod 10 = 7) and (a[i]>0) and ((a[i]<chislo) or (chislo=0)) then
Begin
Nomer:=i;
Chislo:=a[i];
End;
Clrscr;
Writeln('Элемент массива №',nomer,', равный ',chislo, '');
End.
эт я тоже мог с яндекса списать ток эт не то
Maratos668 (02.07.2014 в 19:24)
Igro_Man (02.07.2014 в 19:22)
Maratos668,
Program mas;
uses crt;
const n=7;
Var i,nomer,chislo:integer;
a:array[1..n] of integer;
Begin
nomer:=0;
chislo:=0;
For i:=1 to n do
begin
Write('Элемент массива №',i,' = ');
Readln(a[i]);
end;
For i:=1 to n do
if (a[i] mod 10 = 7) and (a[i]>0) and ((a[i]<chislo) or (chislo=0)) then
Begin
Nomer:=i;
Chislo:=a[i];
End;
Clrscr;
Writeln('Элемент массива №',nomer,', равный ',chislo, '');
End.
эт я тоже мог с яндекса списать ток эт не то
Igro_Man (02.07.2014 в 19:22)
Maratos668,
Program mas;
uses crt;
const n=7;
Var i,nomer,chislo:integer;
a:array[1..n] of integer;
Begin
nomer:=0;
chislo:=0;
For i:=1 to n do
begin
Write('Элемент массива №',i,' = ');
Readln(a[i]);
end;
For i:=1 to n do
if (a[i] mod 10 = 7) and (a[i]>0) and ((a[i]<chislo) or (chislo=0)) then
Begin
Nomer:=i;
Chislo:=a[i];
End;
Clrscr;
Writeln('Элемент массива №',nomer,', равный ',chislo, '');
End.
эт я тоже мог с яндекса списать ток эт не то
Так поправь :)
Igro_Man (02.07.2014 в 19:25)
Maratos668 (02.07.2014 в 19:24)
Igro_Man (02.07.2014 в 19:22)
Maratos668,
Program mas;
uses crt;
const n=7;
Var i,nomer,chislo:integer;
a:array[1..n] of integer;
Begin
nomer:=0;
chislo:=0;
For i:=1 to n do
begin
Write('Элемент массива №',i,' = ');
Readln(a[i]);
end;
For i:=1 to n do
if (a[i] mod 10 = 7) and (a[i]>0) and ((a[i]<chislo) or (chislo=0)) then
Begin
Nomer:=i;
Chislo:=a[i];
End;
Clrscr;
Writeln('Элемент массива №',nomer,', равный ',chislo, '');
End.
эт я тоже мог с яндекса списать ток эт не то
Так поправь :)
Maratos668 (02.07.2014 в 19:24)
Igro_Man (02.07.2014 в 19:22)
Maratos668,
Program mas;
uses crt;
const n=7;
Var i,nomer,chislo:integer;
a:array[1..n] of integer;
Begin
nomer:=0;
chislo:=0;
For i:=1 to n do
begin
Write('Элемент массива №',i,' = ');
Readln(a[i]);
end;
For i:=1 to n do
if (a[i] mod 10 = 7) and (a[i]>0) and ((a[i]<chislo) or (chislo=0)) then
Begin
Nomer:=i;
Chislo:=a[i];
End;
Clrscr;
Writeln('Элемент массива №',nomer,', равный ',chislo, '');
End.
эт я тоже мог с яндекса списать ток эт не то
Так поправь :)
Что править то???
const N=70;
var
a: array [1..N] of integer;
i, j, m: integer;
begin
for i:=1 to N do
readln(a[i]);
…
end.
var
a: array [1..N] of integer;
i, j, m: integer;
begin
for i:=1 to N do
readln(a[i]);
…
end.
В задаче вроде не написанно,что надо на паскале ху*рить?
bejsser1 Стр.: 1, 2
