Var a,i,j,b,p,p1,max:longint;
m:array[0..501,1..500] of longint;
begin
read(a,b);
for i:=1 to a do
for j:=1 to b do
read(m[i,j]);
p:=1;
p1:=1;
max:=m[1,1];
for i:=1 to a do
for j:=1 to b do
if m[i,j]>max then
begin
p:=i;
p1:=j;
max:=m[i,j];
end;
writeln(p,' ',p1);
<span>end.</span>
Var s,t:integer;
begin
write ('s='); readln(s);
if (s>-10) and (s<10)
then writeln ('Число однозначное')
else begin
t:=s mod 10;
writeln (abs(t));
end;
end.
char months[][4]={"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"};
unsigned int num;
scanf("%u",&num);
if(num<=12) printf("%s",months[num-1]);
else printf("invalid number");
Ответ:
Видео: ASF, MP4, M4V, MOV, avi, SWF, 3gp, WMV, MPG или MPEG. Звук: mp3, ogg, AIFF, AU, MID или MIDI, M4A, MP4 (аудиофайл MP4), WAV, WMA. Текстовые : txt
Объяснение: