Там где написано 1(30на 30) это на двух шкалах ищешь 30 и когда найдешь ставишь цифру 1 и т.д.
//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.
//Pascal ABC.NET Версия 2.2 Сборка 790
var a,i:integer;
s:string;begin;
readln(a);
str(a,s);
if length(s)<>3 then exit;
if pos('3',s)=0 thenbegin;
writeln('Nowhere');
exit;
end;
for i:=1 to length(s) do
if s[i]='3' then writeln(i);
<span>end.
</span>
Пример ввода:
123
Пример вывода:
3
#include <conio.h>
#include <iostream>
using namespace std;
int main()
{
int a[12],k;
cout<<"Massive before: ";
srand(time(NULL));
for(int i=0;i<12;i++)
{
a[i]=(rand() \% 25 -12);
cout<<a[i]<<" ";
if((i+1)\%4==0) cout<<" | ";
}
for(int j=0;j<3;j++)
{
for(int i=0;i<2;i++)
{
k=a[j*4+i];
a[j*4+i]=a[3+j*4-i];
a[3+j*4-i]=k;
}
}
cout<<endl<<"Massive : ";
for(int i=0;i<12;i++)
{
cout<<a[i]<<" ";
if((i+1)\%4==0) cout<<" | ";
}
getch();
return 0;
}
<span>
</span>