1. В массиве размерностью 5х6 заменить максимальный и минимальный элементы массива их квадратами. 2. В массиве размерностью 3х7 вычислить среднее арифметическое элементов массива равных удвоенному произведению минимального элемента.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString('Введите строку:'); var n:=s.Matches('[A-Za-zА-Яа-яёЁ]').Count; var m:=s.Length-n; if m>n then Writeln('В строке букв меньше иных символов') else if m<n then Writeln('В строке букв больше иных символов') else Writeln('В строке поровну букв и иных символов') end.
Примеры Введите строку: Это 12+32/16t/7+3.1415 тест В строке букв меньше иных символов
Введите строку: И это 14+7 равно 21 тоже тест В строке букв больше иных символов
#include <stdio.h> #include <conio.h> int main() { int A[20];//объявляем массив целых чисел для 20 элементов int i; //переменная для цикла фор int sum=0, sum1=0;//переменная для суммы, начинаем с нуля float avg; int count=0; // переменная для подсчета колличеста элементов //вводим масив с клавиатуры printf("Enter the massive of number\n"); for(i=0;i<20;i++) { printf ("A[%d]=",i); scanf("%d",&A[i]); sum=sum+A[i];// подсчет суммы всех элементов масива } avg=(float)sum/20;//расчет среднего арифметического for(i=0;i<20;i++) if (A[i]>avg) //если число больше avg то сумируем и считаем {sum1=sum1+A[i]; count++; } printf("Summa=%d amount of numbers=%d",sum1, count); return 0; }
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите строку:');
var n:=s.Matches('[A-Za-zА-Яа-яёЁ]').Count;
var m:=s.Length-n;
if m>n then Writeln('В строке букв меньше иных символов')
else
if m<n then Writeln('В строке букв больше иных символов')
else Writeln('В строке поровну букв и иных символов')
end.
Примеры
Введите строку: Это 12+32/16t/7+3.1415 тест
В строке букв меньше иных символов
Введите строку: И это 14+7 равно 21 тоже тест
В строке букв больше иных символов