Программирование.паскаль.массивы 1)дан массив р(15найти сумму всех отрицательных элементов с четными индексами.полученный результат вывести на экран. 2)ввести с пульта оператора массив мас1 семь целых чисел. переписать из мас1 в мас2 элементы значения которых положительные, в мас3 элементы значения которых отрицательные. на пульт оператора вывести значения мас1, мас2, мас3

Program chik; const n=15; var p: array[1..15]of real; i: integer; s: real; begin s: =0; for i: =1 to n do begin read(p[i]); if(i mod 2=0)and(p[i]< 0)then s: =s+p[i]; end; writeln(s); end.2)program gt; uses crt,graphabc; const n=7; var mac1,mac2,mac3: array[1..15]of real; i,k1,k2: integer; begink1: =0; k2: =0; for i: =1 to n dobeginread(mac1[i]); if(mac1[i]> 0)then begininc(k1); mac2[k1]: =mac1[i]; end; if(mac1[i]< 0)then begininc(k2); mac3[k2]: =mac1[i]; end; end; for i: =1 to n dowrite(mac1[i],' '); writeln; for i: =1 to k1 dowrite(mac2[i],' '); writeln; for i: =1 to k2 dowrite(mac3[i],' '); end.

смотри , процессор , с которым ты работаешь ,ОЧЕНЬ старый . времён 2008-2009 . так вот , он не может разгоняться по технологии Интел турбо буст . да и как я вижу , у тебя мамка тоже старая , поэтому , я рекомендую купить тебе intel core i 3.он хоть и старый , однако , может хорошо работать и у него встроенный графический чип . тоесть , можно в какие-то игрульки поиграть . так же этот проц подлежит разгону . и ещё , если ты разгонигь свой проц через Биос , то он вероятно сгорит , так как ДРЕВНИЙ .Мона лучший ответ ? :<

если квадратов десять, то:

 

[если честно, лет 7 не кодил на паскале, поэтому могу ошибаться в синтаксисе или каких-то деталях]

задаем 3 массива числовых элементов:

var

s, p, x: array[1..10] of integer; //s - будущие площади, p - периметры, x - стороны квадратов

i: integer; //счетчик для цикла

 

begin

for i : = 1 to 10 do

  begin

  writeln("введите сторону "+inttostr(i)+" квадрата: ");

  readln(x[i]);

  end; //ввели стороны, теперь вычисляем площади и периметры:

 

for i : = 1 to 10 do

  begin

  s[i] : = x[i]*x[i]; //для нахождения площади перемножаем стороны каждого квадрата

  p[i] : = x[i]*4; //для нахождения периметра - умножаем сторону квадрата на 4

//и тут же выводим это на экран:

  writeln("площадь "+inttostr(i)+" квадрата равна "+inttostr(s[i]));

  writeln("периметр "+inttostr(i)+" квадрата равен "+inttostr(p[i]));

  writeln;

  end;

 

readln //это чтоб дождаться нажатия энтер перед закрытием окошка : )

end;

 

должно работать.